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Alles, was Sie schon immer über 
 Ihren_COMMODORE wissen wollten! 
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Tips & Tricks 


Maschinen- 
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64 FÜR PROFIS 
zeigt, wie man erfolg- 
reich Anwendungs- 
robleme In BASIC 
öst und verrät 
Erfolgsgeheimnisse 
der Programmier- 
profis, 5 komplett 
beschriebene, lauf- 
fertige Anwendungs- 
programme (z.B. 
Adreßverwaltung) 
Illustrieren den Inhalt 
der einzelnen Kapitel 





64 TIPS & TRICKS ist 
eine echte Fund- 
grube für jeden 
COMMODORE 64 
Anwender. Umfang- 
reiche Sammlung 
von POKE's und 
anderen nützlichen 
Routinen, BASIC- 
Erweiterungen, 
Graphik und Farbe 
für Fortgeschrittene, 
CP/M, Multitasking, 
mehr über Anschluß- 





64 INTERN erklärt 
detailliert Technik 
und Betriebssystem 
des C-64 und die 
Programmierung von 
Sound und Graphik. 
Ausführlich doku- 
mentiertes ROM- 
Listing, zahlreiche 
lauffertige Beispiel- 
programme und 2 
Original-Schaltpläne 
zum Ausklappen. 
Dieses Buch sollte 


Eine leicht ver- 
ständliche Einfüh- 
rung In das 
Programmieren des 
C-64 In Maschinen- 
sprache und 
Assembler 
Komplett mit vielen 
Beispielen sowie 
einem Assembler, 
Disassembler und 
einem Einzelschritt- 
Simulator Und 
natürlich zuge- 


Endlich ein umfang- 
reiches Trainings- 
handbuch, das 
Ihnen detailliert den 
Umgang mit 
SIMON's BASIC 
erklärt Ausführliche 
Darstellung aller 
Befehle und ihrer 
Anwendung 
Zahlreiche Beispiel 
programme un 
Programmiertricks 
Dieses Buch sollte 


DAS GROSSE 
FLOPPY-BUCH erklärt 
detailliert die Arbeit 
mit der Floppy 
VC-1541, von der 
sequentiellen Daten- 
speicherung bis 

zum Direktzugriff, für 
Anfänger, Fort- 
geschrittene und 
Profis. Ausführlich 
dokumeniiertes 
DOS-Listing, zahl- 
reiche laufferlige 
Beispiel- und 
Hilfsprogramme, z.B. 


VC-20 INTERN ist für 
jeden interessanı, 
der sich näher mit 
Technik und Maschli- 
nenprogrammierung 
des VC-20 auseinan- 
dersetzen möchte 
Detaillierte tech- 
nische Beschreibung 
des VC-20, ausführ- 
liches ROM-Listing, 
Einführung in die 
Maschinenprogram- 
mierung und 3 Origi- 
nal-Schaltpläne. 

ca 230S;DM49- 





VC-20 TIPS & TRICKS 
Ist eine echte Fund- 
grube für jeden 
VC-20 Anwender. 
Sound und Graphik 
Programmierung, 
Speicherbelegung 
und Speichererwei- 
terung, BASIC-Erwei- 
terungen, POKE's 
und andere nützliche 
Routinen, zahlreiche 
lauffertige Beispiel- 
und Anwendungs- 
programme und 
vieles andere mehr 


jeder SIMON’s schnitten aufihren jeder 64-Anwender und Erweiterungs- beispielhaft Mit 
BASIC Anwender Computer, den und Interessent möglichkeiten und diesem Buch lernen 
haben! COMMODORE 84. haben zahlreiche lauffertige Sie gute und erfolg- 


ca. 200S,DM39.- ca. 320 S.; DM 69. - Programme. 


ca. 290 S.;DM 49,- 


ca 300S,DM 49,- 


Disk Editor und Haus- 
haltsbuchführung 
ca. 320 S.; DM 49,- 


reiche BASIC- 
Programmierung 
ca 220S,DM49,- 


ca 230 5S:DM 49 - 


Gute Software muß nicht teuer sein! 


Die neuen DATA BECKER PROGRAMME -S 


unglaublich niedrigen Preisen. Drei aktuelle Beispiele: 


SUPERGRAPHIC 64 


Die neueste Version unserer belieb- 
ten SUPERGRAPHIC enthält jetzt 
über 30(!) Befehle zur Ausnutzung 
der fantastischen Möglichkeiten, die 
der 64 mit hochauflösender Graphik 
und Farbe bietet. Mit SUPERGRA- 
PHIK 64 können Sie Punkte, Linien 
und Kreise ziehen. SPRITES definie- 
ren und manipulieren, Farben setzen, 
komplette Graphikbildschirme auf 
Diskette abspeichern bzw. laden und 
vieles andere mehr. Ergänzt wurde 
die SUPERGRAPHIK 64 zusätzlich um 
SUPERSOUND, eine neue Befehls- 
erweiterung zur Nutzung der hervor- 
ragenden Soundmöglichkeiten des 
64 und der Farb-Hardcopy auf dem 
neuen SEIKO GP 700A. Mit SUPER- 
GRAPHIK 64 machen Sie mehr aus 
Ihrem 64er, und das fürnur DM 99,-. 





gegen DM 3,- in Briefmarken an. 
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Weitere DATA BECKER PROGRAMME: Das rechnende Textverarbeitu 
FAKTUMAT, die Einnahme-/Überschußrechnung KONTOMAT, das Synthe 
SUPERGRAPHIK und der Diskettenmonitor DISKOMAT Jewells nur DM 


Monitoren und weiteren vielseitigen Peripheriegeräten 


IHR GROSSER PARTNER FÜR KLEINE COMPUTER 


CKER 


- 4000 Düsseldorf - Tel. (0211) 310010 : im Hause AUTO BECKER 


m Computer-Fachhandel, in den Computerableilungen der Kaul- 
sterreich Fachbuch-Center ERB, Schweiz THALI AG und 


PASCAL 64 


Jetzt können Sie die beliebte 
Sprache PASCAL auch aufdem 
COMMODORE 64 einsetzen. 
PASCAL 64 ist ein leistungsfähiger 
PASCAL-Compiler, der nicht nur den 
Befehlssatz des Standard PASCAL 
unterstützt, sondern auch die 
hochauflösende Graphik und die 
Sprites des COMMODORE 864, Ein-/ 
Ausgabe über Diskette und Drucker 
sowie REAL und INTEGER Arithmetik. 
Unterprogramme aus Ihrer eigenen 
Programmbibliothek können vordem 
Compilieren in Ihr Hauptprogramm 
mit eingebunden werden. PASCAL 64 
ist sehrschnell, da echter Maschinen- 
code erzeugt wird und kostet 
komplett mit ausführlichem Hand- 
buch nurDM 99. -. 


Unser 84 (!) seitiger Spezialkatalog mit detaillierten Informationen über COMMODORE 64, VC-20 und den neuen 
COMMODORE EXECUTIVE, mit der großen Druckerauswahl vom kleinen Listingdrucker über Vierfarbplotter und 
Typenraddrucker bis zum Schnelldrucker mit Einzelpunktgraphik und Schönschrift, mit preis 


Das neue VC-INFO 3/83 sollte jeder Computer-Interessent haben. Fordern Sie es noch heute 





Pitzensoftware auf Diskette mit ausführlichem Handbuch zu 


SYNTHIMAT 


Mit diesem Superprogramm verwan- 
deln Sie Ihren 64er in einen profes- 
sionellen, polyphonen, dreistimmigen 
Synthesizer, mit dem Sie über die 
Tastatur ganze Akkorde spielen kön- 
nen. Zu den unglaublich vielen Mög- 
lichkeiten dieses Programms gehört 
auch die Bandaufnahme/-wieder- 
gabe direkt auf bzw. von Diskette. 
SYNTHIMAT stellt gleichzeitig den 
Synthesizer optisch dar. Sämtliche 
Module sind farblich gekennzeichnet 
und übersichtlich angeordnet. Es ist 
ein Leichtes, mit SYNTHIMAT sämt- 
liche Klangeigenschaften verschie- 
dener Musikinstrumente zu imitieren, 
aberauch völlig neue Klangkreationen 
zu schaffen, selbst Weltraumklänge 
Verwandeln Sie Ihren 64er für wenig 
Geld in eine Super-Musikmaschine 
mit SYNTHIMAT. Komplett mit aus- 
führlichem Handbuch nur DM 99,-. 


ngsprogramm TEXTOMAT, die Sofortfakturierung 
sizerprogramm SYNTHIMAT. die Graphikerweiterung 
99,- inkl. ausführlichem Handbuch. 
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Diese 4 kurzen Maschinenprogramm-Routinen, 
senden Scroll des Bildschirminhaltes 

sen sich mühelos in andere Programme 
des ’Print’ Statment mit ’AT’ 


Programmiertips 


für den ZX-81 


MC-Aufruf geändert werden. 


Um eins von diesen Programmen laden 
zu können, geben Sie zuerst folgendes 
ein: 

| REM --Min.30 Zeichen 
Danach tippen Sie dieses 
Ladeprogramm ein: 

I0 PRINT "Letzte MC-Adresse?”: 
20 INPUT Adresse 

30 PRINT Adresse 

40 FOR A=16514 to Adresse 

50 SCROLL 

60 PRINT "Adresse-";A;” INHALT-”: 
70 INPUT B 

80 PRINT B 

90 POKE A,B 


MC- 
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100 SCROLL 
110 NEXT A 
Sie können jetzt, nach dem Start, mit 
RUN die Zahlen sorgfältig eingeben! 
Es ist auch möglich, alle 4 Programme 
einzutasten, jedoch verschieben sich 
die Startadressen der einzelnen Scroll- 
Funktionen! Die MC-Routine wird 
mit 

RAND USR 16514 
aufgerufen! 
Das ZX-SCROLL sollte man nicht ein- 
geben, da das System abstürzen 
könnte! 
Scroll nach oben 


frei delı 


welches (OJITanEL 
( worden Is, gehen 


. ’ 
‚einander die Orig 


Tara und 


an 


neu di 1i 





erzeugen auf dem ZX-81 einen flies- 
in 4 Richtungen. Diese MC-Programme las- 
unterbringen, Voraussetzung dafür ist, das je- 
geschrieben worden ist!! Andernfalls muß dies vor dem 


42,12,64,93,84,19,1,34,0,9,1,192.2,237, 
176,201 

Scroll nach unten 
0,0,42,12,64,1,181,2,9,34,130,64,1.33,0,9, 
84,93,42,130,64,1,181,2,237,184.201 
Scroll nach rechts 
42,12,64,35,84,93,35,62,24,1,31,0.237,176, 
245,151,18,19,35,19,35,241,61.32.240.201 
Scroll nach links 
42,16,64,43,43,84,93,43,62.24,1,31.0, 
237,184,245,151,18,43,43.27,27,241, 
61,32,240,201 

Die oben abgebildete MC-Lade-Rou- 
tine kann für jedes Maschinenpro- 
gramm eingesetzt werden!! 
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Spectrum Hardware Manual 
von Adrian Dickens 


Der Sinclair ZX-Spectrum hat die Computerwelt 
revolutioniert 

Dieses Buch erklärt das Geheimnis seines 
Erfoiges und wie das Gerät arbeitel. Viele 
Aspekte, die das offizielle Manual nicht oder nur 
kurz streift, werden Ihnen hier ausführlich 
vorgestellt Wie die Farben Ihres TV-Monitors 
optimal eingestellt werden können, wie der 
Interne Lautsprecher durch einen anderen ersetzt 
wird und vieles mehr 

Dazu wird gezeigt, wie der Spectrum mil 
zusätzlicher (auch selbstgebauter) Hardware 


aufzurüsten Ist DM 29, 80 
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VC-20 Innovative Computing 


von CiiHord Namshaw 


Ein Buch, geschrieben von einem der krealivsten 
Programmierer in der Microcomputer-Well! 

Spannende, interessante Spiele wie Nuclaer 
Attack, Space Fight, Hopper, Invasion, Squash, 
Golf, Grand Prix, Adventure, und sogar Schach! 
Komplette Listings all dieser und weiterer Spiele, 
leicht verständlich mit vielen Tips und Tricks 
angereichert, eröffnen Ihnen neue Dimensionen 
Ihres VC-20. 


DM 29,80 


COMMODORE 64 Games Book 
von Clifford und Mark Ramshaw 
Erleben Sie die Fascination der Computer- 

Technik! 

Die Brüder Ramshaw gelten in England als die 
Nummer 1 In Sachen Commodore programmie- 
ren und dieses Buch wurde von der Fachpresse 
als eines der besten für den CBM 64 gelobt 
Jedes der hier vorgestellten Programme macht 
hervorragenden Gebrauch von den Fähigkeiten 
die den Commodore 64 gegenüber anderen 
Geräten seiner Preisklasse auszeichnen 

Kein Commodore-64-Anwender sollte dieses 
Buch in seiner Sammlung missen 


DM 29,80 
er 









80 
29,7. 


Over the Spectrum 


von Alfred Miigrom 


Ein Buch, das alle Wünsche von Spectrum-Fans 
erfüllt 

Komplette Listings von mehr als 30 Programmen, 
die zeigen, was in dem kleinen schwarzen Kasten 
an Kraft und Raftinesse steckt! 

Die Palette reicht von Geschicklichkeitsspielen 
wie Frogger, Meteor Storm, Eliminator über 
Strategie-Spiele wie Schach zu echten Adven- 
tures 

Nützliche Winke und Tips, sowie Geschäftspro- 
gramme machen dieses Buch 


— 


ni3#+ Yo 





EEE 





zu einem 
Nachschlagewerk für jeden Spectrum-Anwender 


DM 39,80 





ENTER THE DRAGON 


von Colin Carter 

Eine Sammlung kreativer Programme für 
Dragon 32. Das Buch enthält kompletie Listings 
für viele der bekannten Arcade 
Spiele wie Lunar Länder, Invaders, Meteor Storm 
3-D-Treasure Hunt, Flightsimulalor und viele 
andere 

Viele Programme nutzen die 
Mögliohkeiten der Dragon Highresolutiongrafik 
Enter The Dragon zeigt Ihnen sogar, wie Sie 
Ihrem Drachen das Sprechen beibringen können 
Dazu eine Menge Tips und Informationen, die ür 
den Beginner ebenso nützlich sınd, wie für der 


Fortgeschrittenen DM 28, 80 


ger 


. “ 2. 
ind Abenteuer- 


Nervorragenden 
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The Complete Spectrum ROM Disassembly | 


von Dr. lan Logan und Dr. Frank 0’Hara 


Der ZX-Spectrum wird von seinem eingebauten 
16-K-ROM gesteuert 

Die beiden Autoren erläutern Ihnen den 
Interpreter und zeigen Ihnen, was der Spectrum 
tut und was dabei in Ihm vorgeht 

Im Detail: Befehlsroutinen, Lautsprecher, Input / 
Output, Varlable und mathematische Funktionen 


Ihr Spectrum besitzt eine große Anzahl von 


eingebauten Funktionen. Dieses Buch hilft Ihnen 


sie zum eigenen Nutzen zu verstehen und sie in 


eigenen Programmen sinnvoll einzusetzen 
Ein Muß für alle engagierten Specirum- 
Programmierer! 
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Not only 30 Pepnns for the ZX-B1 IK 


von Melbourne House Publishers 
Battleships, Roulette, Blackjack, Starwars, 
Breakout, Memory, Miniadventure, 1 K-Draughts, 


Doch nicht nur 30 Programme für den ZX-B1 in 
der Grundversion enthält dieses einmalige Buch 
Jedes Programm wird erklärt, Programmiertips 
werden gegeben und viele Peeks und Pokes 
erläutert 

Ein Buch, das zeigt, was in 1 K stecken kann! 


DM 29,80 


DM 39,80 
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Meteoric Programming for the ORIG 1 


von John van der Reyden 


Viel Software für wenig Geld bietet Ihnen dieses 
Buch 

30 speziell für den ORIC 1 entwickelte 
Programme: z.B. Luna Lander, Eliminator. Sea 
Copter und viele mehr, die Ihnen zeigen, welche 
Farben, Grafiken und welch herrlichen Sound der 
ORIC produzieren kann 

Selbsverständlich fehlen auch praktische Tips 
nicht, die für alte Hasen ebenso interessant sind 
wie für junge Füchse! 

Eine ideale Ergänzung dieses Computers! 


DM 29,80 
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Das Virgin Gomputerbücher-Programm 
ames for your VIG-20 (VG-20) 
Games for your Dragon 32 
Games for your TRS 80 
Games for your ORIG 1 
Games for your ZX-B1 
Games for your ZX Spectrum 
Games for your Atari 
Games for your BBG Micro 


Bücher, die mehr aus Ihrem Computer machen! 
Jedes einzelne Buch enthält mehr als 20 komplette, spielfertige 
Programmlistings für den betreffenden Computer. 


Alle Programme werden erläutert und sind mit 
Bedienungsanleitungen versehen. 


Ein Computerlexikon, das alle wichtigen Begriffe aus der 


Computerterminologie enthält, vervollständigt den Inhalt 
jedes Buches dieser Reihe. 


jedes Buch nur DM 19,80 
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Bestellungen Inland: 


Gegen Einsendung eines Schecks oder 
Vorauszahlung auf unser Konto bei der 
Kreissparkasse Eschwege. 
Bankleitzahl 522 500 30 

Kto.-Nr. 45 22 934 

senden wir Ihnen die gewünschten Pro- 
gramme schnellstmöglich zu. 


Bestellungen Ausland: 


Nur Vorauskasse, Schein (Kassette 10,- 
DM, Diskette 20,- DM). Keine Schecks 
oder Überweisungen! 


Lieferung noch nicht erhalten? 


Bei Überweisung aufunser Kontokann 
es bis zu2 Wochen dauern, bis wir Ihre 
Bestellung in Händen haben. 

Oft passiert es, daß auf der Überwei- 
sungsdurchschrift weder Name, noch 
Ort, noch Art der Bestellung zu er- 
kennen sind. Schreiben Sie uns! (An- 
rufe kosten viel Geld und bringen, weil 
dann Schriftvergleiche nicht möglich 


sind, kein Ergebnis)! Asıyo 


J, 

Wenn esbei uns besonders hektisch zu- Snake "ger 
geht, dann kann es schon mal pas- 
sieren, daß es mit der Lieferung etwas 
länger dauert. Vergessen Sie bitte nicht: Han delta; 

Der Kassettenservice ist ein zusätz- man "ng 
licher Service von uns, der Ihnen, dem 
Leser, Tipparbeiten ersparen soll (Sie 
kennen den Versuch einer anderen 
Zeitschrift, dieses per Lichtgriffel zu 
ermöglichen). Wir tun unser möglich- 
stes. Aber Pannen sind nie ausge- 


schlossen. 
Bitte haben Sie in solchen Fällen Ver- 
ständnis. 
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Herzlichen Glückwunsch zu Ihrer wirklich 
guten Zeitschrift. Ich gehöre von Anfang an zu 
Ihrem Leserkreis. Früher besaß ich nurden ZX- 
81, jetzt habe ich mir auch den SPECTRUM 
zugelegt. Logisch, daß mich am meisten Ihre 
Spektrum-Programme interessieren. Meine 
Englischkenntnisse sind begrenzt und mit ei- 
nem mir vorliegenden Handbuch, ist nicht viel 
Staat zu machen. So ist es mir bis heute noch 
nicht gelungen, richtig in die Geheimnisse der 
Sonderzeichen einzudringen, Sie druckten im 
Heft 6 das Frogger-Programm ab. Ich gab es 
ein, aber die Sonderzeichen wurden nicht Malz 
sen. Trotz mehrmaligem Durchschauen, konnte 
ich keinen Eintippfehler entdecken. Ich wartete 
auf Heft 7, und damit auf eine eventuelle Be- 
richtigung. Es kam aber keine,’ stattdessen ein 
neues Programm - Mampfman - und wieder 
taucht bei mir dasselbe Problem auf. Ich weiß 
nun nicht, ob der Fehler bei mir, oder im Pro- 
grammliegt, Bei Durchsicht von entsprechender 
Literatur, wird jeweils anders vorgegangen. Ich 
wäre Ihnen dankbar, wenn Sie mir mitteilen 
würden, ob der Fehler bei mir, oder im Pro- 
gramm liegt. 


F.-J. Grünen, WEITE 


Redaktion: Bezüglich Ihrer Frage zum 
Frogger-Programm aus Helt 6: In den Zeilen 
YO bıs 9600, werden dieentsprechenden Gra- 
likzeichen,. Frosch. Schildkröten. Bäume. 
Autos, erzeugt. Aufidie gleiche Art und Weise. 
werden Umlaute, zusätzlich zum normalen 
Zeichensatz, eingefügt. Durch Vergleich der 
Datas und .derin den anhängenden REM sbe- 
lindlichen Zeichen, können Sie durch ein- 
lache Schlußfolgerung. hinter das Geheimnis 
der Zeichensatzprogrammmierung. des ZX 
Spectrum, kommen. Im weiteren Programm 
auftauchende grafische Zeichen, müssen mil 
len entsprechenden Buchstaben, von der Ta- 
statur, eingegeben werden 


Ich habe folgende Frage an Sie: Wie kann man 
Programme, die auf 8 K geschrieben wurden, 
auf 16 K umschreiben, ohne die Pokes zu än- 
dern? Ausserdem möchte ich Sie fragen „ wie 
man selber Zeichen für den VC-20 definieren 


kann (bin Anfänger!) 
P. Rebmann, 


2 Zu Ihrer ersten Frage: Bei diesen 
| euch muß man nichts umschreiben, 
es sei denn, daß ee ver- 

| in er 

\erbereic nicht funktionstüc tig sin 

.- I a remnun 3 und 
en wir die Programme Disassembler und 
mb Frage beschäfi u di sich ausführlich 


Pratteln (CH) 
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Zum Programm, Vokabeltraining Sur II 99 
4A, habe ich für Disketten Stationsbesitzer, fol 
sende Änderungen vorgenomme N: 

305 DISPL. AYAT (2,1) BE E P: '"WELCHES 
VOKABELPROGRAMM? 

506 ACCEPT AT (3,1) VALI 
DATE(UALPHA): WOS SW OPEN / ] 
"DSK1."&WOS, OUTPUT, INTERNAL, 
FIXED 64 

8 = Dollarzeichen, # = Numme rzeichen 
wos ermöglicht mir die eingegebenen 30 
Vokabeln unter einem bestimmten Namen (bis 
zu 10 Buchstaben) abzuspeichern. 


W. Bürger, Velbert 


Betrift: Programm Mampfmann aus Ho- 
mecomputer Juli/83 

Um Speicherplatz zu sparen, sollte man die 
Überschrift in eine Gosub-Routine bringen, 
ebenso die PAUSE 5000 mit Print AT 210; 
"Drücken Sie eine Taste, 

Einfügung eines Textes zur Erleichterung 
eines Spieles: 

201 PRINT Mampfmann 

202 PRINT, ,„ Geben Sie gleich die Tasten ein, 
mit denen Sie Ihren Mampfmann bewegen 
wollen! 

203 PRINT AT 21,0; Drücken Sie eine Taste!: 
PAUSE 5000 

204 Cis 

Zeile 9000 zeigt Fehler an: Abgeändert läuft 
es besser: 

9000 FOR a = 144 TO 157: FORb=0 TO 7: 
READ c: Poke USR CHR= (a) +b,c: NEXT b: 
NEXT a 


J. Grobbin Delmenhorst 
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Autofahren liegt so ziemlich jedem 21- 
vilisierten Menschen. Deshalb sind 
Programme die einen Fahrsimulator 
enthalten. für die Mehrzahl der Com- 
puterlreunde bestimmt eher interes- 
sant als die oft recht komplizierten 
lugsimulatoren. die eine lüngere 
UÜbungsphase vorausselzen, 

Motor Mania ist ein solches Fahrpro- 
eramm. Neun Schwierigkeitsstulen 
stehen zur Verfügung. Sie können Ihı 
"ahrzeug auf Autobahnen. Lund- 
straßen oder auch auf holprigen Ne- 
benstraßen bewegen, Die tollsten Hin- 
dernisse kommen Ihnen gerade dann 
entgegen. wenn Sie am wenigsten där- 
aul vorbereitet sind. Da gibtes Baustel- 
len und Schlaglöcher sowie andere Ge- 


2 0. ' " TEE Anm a 
Jedermann weiß, daß der Commodore 64 besonders stark 
Grafik. den Sound und seine Farben ist. Programme tur die 


rkin! 


uı 


diese Eigenschaften tunlichst zunutze machen. 


venstände auf der Strecke. 
Andere Verkehrsteilnehmer kommen 
Ihnen entgegen oder müssen überholt 
werden. 

Wihrend der Fahrt sorgt ein dem ech- 
ten Motorlärm gut nachempflundenes 
Geräusch. für die richtige Einstim- 


mung. Ein Tachometer zeigt die Jewei- 
live Geschwindigkeit an 
Weitere Anzeigen warnen vor zu 


\r 
2 


lunesumer Fahrt (ob das wohl im Sınne 
der Verkehrserzicehung ist?) oder zeigen 
dem Führer. wann das Benzin zu Neige 
veht und er eine Werkstatt aufsuchen 
mu, 

Bei entsprechender Fahrweise kann 
ler Motor überheizt werden oder düs 
Motoröl wird knapp: was durch ent- 
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Heli-Command 


für den C-64 
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Verteidigen Sie Ihre Stadt! ”Heli-Command” - 
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gutem Sound und ebenso guter Grafik - für den C-64 


Zwei Helikopter greifen an: Der eine 
versucht zu landen und möglichst viel 
Invasoren in die Stadt zu bringen, der 
andere versucht bereits während des 
Anfluges, Bomben abzuwerfen. 
Gelingt es den Helikoptern, eine be- 
stimmte Anzahl von Bomben in der 
Stadt zu deponieren oder über ihr 
abzuwerfen, wird diese von den Angrei- 
fern eingenommen und die vollstän- 
dige Zerstörung läßt nicht lang auf 
sich warten. 


Es ıst wirklich nicht leicht, die bei- 
den ”Heli's” unter Kontrolle zu halten. 
Einzige Wafle für Sie ist eine auf der 
Grundlinie des Bildschirmaufbaues 
verschiebbare Laserkanone, mit der 
man das Landen der Angreifer und die 
abgeworfenen Bomben, noch wäh- 
rend des Fallens zerstören kann. 

Besonders verübeln kann man es den 
Angreifern, daß sie bei Tag anrücken 


und die Kampfhandlung um Mitter- 
es stockdunkel ist, 


nacht, wenn 


a 571 3 Bu 2 2 3 2 5 3 2 3 2 2 3 2 2 2 2. 2 2 2 5 22 2 2 2, 32. 5, 2 2 2.2 
1 REMW HER S =,56 D-:M: RD 
2 REM #* + 
3 REM %* EIN ARCAHDE-SFIEL * 
4 REM # FÜER ’ 
> REM # LOMMODUIRE 64 + 
6 REM # + 
’ REM %# VON + 
8 REM ab BALDAUF, ROCKENHAUSEN# 
9 REM # LUITPOLTDSTR,. 62 + 
18 REM& COPYRIGHT OKTOBER 1383 + 


11. RE IRB MN ehe 


14 PRINT"T" 
16 GOSUESBHH 
18 EN=939 

19 51I=54272 


REM 
13 FORR=ATOS2 : POKEIEB+R, 8: NEXTR 


20 v=53248 : POKEV+32, 15: POKEVY+33, 15 


21 DIMWI<C2S? 

22 PL=54296 

23 TI$="0A9098" 
24 ANG=B 

26 S2=54279 


Mn, 
4 





ein wirklich spannendes Spiel, mit 


erst dann ihren Höhepunkt erreicht 
Das Spiel hat Highscore-Wertung. 

Mit 300 bzw.600 Punkten, wird eine 
Landung des Heli's ausgeglichen. 
Wenn ein- oder mehrere Helikopter 
gelandet sind und der Spieler 1000 
oder 800 erreicht hat, wird ein Treffer 
der Stadt abgezogen. 

Bei der Level-Eingabe ist der Level 
gleich der Anzahl von möglichen bzw. 
erlaubten Treffern der Stadt, bzw. 
Landungen der Helikopter. 
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POKEV+21,31:POKEV+28, 17 
POKEV+39, 2: POKEY+48, 8: POKEY+41 8: FORI=@TO4 :POKEV+42+1, 1 'NEXTI:POKEV+43, 6 


POKEV+37 , 14: POKEY+38, 8 

POKE2948, 11: POKE2041 , 13: POKE2842, 14: POKE2843, 15: POKE2044 , 11 
REM EINLESEN DER DATEN FÜUER SPRITES 

FORI1=8T062 : READX :POKE?&4+1,%:NEATI 


88 FORI=8T062 :READX : POKESSZ+1,%:NEXTI 


FORI=9T062 : READX : POKESIE+I , X: NEATI 


188 FORI=AT015:POKE368+1,8:FORI=16T0465TEP3 ' POKE9IEGBH+T , 16 NEXT 








FOR I=46T0682 : POKEI6B+IT ,B NEXT 

FÜRK=ATO24 'RERDWI CK) 'NEAT 

GOSLUEBSZHH 

PRINT"T' 

REM STADT WIRD AUFGEBAUT 

FOKEVY+32,15:POKEV+33, 195 . 
FORÜ=19334T01984+39 POKEN , 224: FOKEO+54272, 6 NEXTU 
F=H 

A B=INT{RENDEIDFIBD) +6 

F=INTERNDÜ1IK2)+3: D=B#20  E=Et1 

FÜRH=1TOF : D=B#26 ” 
FORC=STODSTEP4B: POKE1344-C+HE , 174 POKESEZIE-CHE, 12 
NEATC 

E=E+1 : IFE>3BTHENE=8: GOTOZ18 

NEXxTH : GOTO14B 

FEM WOLKEN UEBER DER STADT 

PRINT" SI BRRBRBBBBBbEBL___ men 
FEINT"IRBRBBBRBBBBI » — u 
FRINT'IEBI_ IBBl 4 ——e 

FRIHT' II JEnbbbbbbh Zu 
PRINT" m BR | 

PRINT" IT 

FRINT'"SSSSCORE 8 2.177 8 EHER, = 399 WAHGR. 8 5 
FORK=ATO24 : POKESI+K,WICK? :NEAT 
FOKESI+4.,65:POKESI+18,65: POKESI+11,65 

'Y=f: BX=9: TUS=A: SC0=R: BOM=B: Q=4:POKEYW+16,0 

Zzr=2Zan: Z7=39 

R=166 

POKESE322., 224 

»=218 

a POKEY+6,8:POKEW+7.,8 

a Q=H 

a FEM SPIELBEGINN 

a FOKEY+B.0:POKEW+1,R 
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ZEIT=YALCTISY: IFZEIT>=3BRANDZEITS4BBTHENPOKEY+32, 11: POKEV+33, 11 
IFZEIT>=4 1ATHENPOKEVY+32, 9: POKEVW+33,R 

2323 IFZEIT?=7ABTHENTI$="aRaBaR" : POKEW+32, 15: POKEV+33, 15 

334 IFBEr>=1659THENPOKEV+Z7,8 

325 IFEY<16ATHENFOKEY+Z7 2 

236 IFSCO=3BR0RSCO=GABTHENANG=SANG-1: TUS=1 : GOSUB3985: SCO=SCO+18 
238 IFANG>=1ANDSC= 1ABBORANG>=1ANDSC=SBBTHENCIT=SCIT-1:5C0O=SC0+18'GOSUB2028 
34a POKEV+8, 24: POKEV+3, 27 

241 IFZX>3BAANDET=ATHENPOKEV+2 , 2%: Br=Z7+6 : POKEV+3, BY BOM=1 : EX=2ZX 
242 IFBOM=1THENPOKEV+2,B# : POKEW+3, BY: Bir=B'Y+4 : BX=Ex+. 4 

243 IFEY>=230THENPOKEY+2, 8: POKEV+3, 9: BOM=B: B'Y=5 : GOSUBZ26868 

244 IFBX>=258THENBA=BA-.4 

348 IFZAU>=220THENZYI=2ZV-2.1:2%=2%-.5 

2493 IFZT<=2THENZA=B: Z7=55 

3590 POKEY+4,%: POKEV+5, 221 

355 REM JOYSTICK PORT 2 (J=PEEK(56320)) 

256 REM JOYSTICK PORT 1 (J=PEEK(563219) 

264 J=PEEK.(56320) 

=78 IF JAND4>=ATHENA=A-6 

288 IF (JAND®)=QTHENA=A+G 

285 IFX>=243THENGOTO488 

290 IF(JANDIE>=OTHENGOTOSHB 

400 Zu=Z4+1.3 


0=0+3 
210 TEPEEKCV+L6)=1ANDAD=48THENR=R+4.5:0=0-2. 0: HUB=1 
a  ESELTHERFOKEV+LG,B0=O Rei 
| 413 IFRI=22SAr ‚V+l6)=1THENF ‚8:0=8'R=188 : POKEV+27,0:HUB=B: 
213 IFPEEKCV+16)=1ANDXD=2SSTHENPOKEV+16, 13: X=8 27 ‚8: HUB=B : GOSUB3O00 
|. J15 IFPEEK(V+16)=12ANDA>=2SSTHENPOKEV+16, 13:0=8 
A1E IFPEEK(Y+16)=13ANDA>=9STHENPOKEV+16, 12:0=@ 
115 IFPEEK<V+L6)=1ANDA>=3STHENPOKEV+16, 0: 0=8 
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418 IFFEEKCV+1E)=LZANDK<=STHENFOKEV+16,0 n=254 
413 IFFPEEK(V+16)=13ANDK<=BTHENPOKEVY+1E, 1: X=254 
420 IFX=>25STHENFOKEV+16,12:%=0 
430 IFüÜ=>25ITHENPOKEV+1E,1:0=A 
4735 GOTO32#A 
‘a6 REM UNTERFROGRAMM SCHUSS 
a P=200 
EN=EN-S5 


PRINT"8"; TAB(C25>;EN 
IFEN<= 1 BBTHENGOTOAAAK 
IFGIH= =ARNDSCH>=3BRATHENEN=EN+SRAR :GIH=1 


NU=X 


IFPEEK(V+16)=4THENPOKEV+L6, 12 
IFFEEK(VY+16&)=STHENPOKEY+16, 13 

IFPEEKC re AANDÜ>=3B8THENBOM=1 

Q=QD+1. 

ZUaZu 2 

IF@Q>=255STHENPOKEY+16,1:0=8 

IFPEEK <V+16)=12ANDO>=255THENFOKEV+168, 13:0 
IFFPEEK (VY+16)=13AND@>=35STHENFPOKEY+1E,12:0= 
IFPEEK(V+16)=1ANDA>=35STHENPOKEV+16.8:0=8 
FOKEY+B,B:POKEY+1,R 

FOKEV+8, Z#:POKEV+9, ZW 
POKEV+B,XQ:POKEV+7.P 
IFBA>=253THENBX=BX-. 4 
IFEOM=1THENFOKEW+2, BA : POKEY+3, ET: BEr=Br+2.5:BX=BX+.4 


= 
u 


3 IFEr>=239THENPOKEV+2,8: POKEY+3, 8: BOM=8: Br=8: : G0SLUB2999 


IFHLIB=1 THENR=R+2:0=0-1.3 
IFZA>=2Z0THENZY=ZT-1.5: 2X=2K-.5 
IFZY<=2THENZA=8: ZY=508 
IFR>=225THENPOKEV+6, A: POKEV+7 ,@:FOKEV+16,8: POKEY+27 8: GOSUB3298::GOTO414 
P=P-15: IFP<SGTHENFOKEV+7 .,6:G0T0338 
IFPEEK (W+38)=1BTHENB'Y=@ : BOM=8 : GOTO238 
IFPEEK ( Y+38)=3THENGOTOS?E 

POKEV+38.8 

GATOE1R 

REM HELIKOFTER GETROFFEN 
ALTA=PEEK (VY+32) :ALTE=PEEK( V+33) 
FORK=54272T0542936 : POKEK , &: NEXT 


d POKES4279, 3: POKES4277 , 38 : POKES4278 31: POKES4276, 129: POKEPL, 15: POKES4273,6 


POKES4272, 286 : FORTY=14TOBSTEP-2: FORT=1T045 : NEXT : POKES4296, Tr 
POKEY+32, INTCRND(CO)#157 +1 
POKEY+33, INTCRNDCBIH1SP +1 


988 NEXTTY 








; POKES: + I, l/ 
3 SCD=EO+R PRINT" HTABCH» ;SC0 


POKEV+32, ALTAR: POKEV+33, ALTB 
FORK=8T024 : POKESI+K, WI CK) : NEXT 
FOKESI+4,65:POKESI+18,65:POKESI+11,65 
sL0=SCc0+58 

PRINT" M"TAB(S5>;SCO 

POKEV+38,8 

POKEY+6 6: POKEVY+7,8 

3 a en art 4a ul 


G0T0398 

REM BOMBE GETROFFEN 
ALTA=PEEK ('/+32) :ALTB=PEEK('VY+33) 
POKEY+2,%8:POKEY+3,8 
POKEV+6 ,8: POKEW+7,8 

En POKEK,@ 


4272, 296 'FORTY=8TOBSTEP-2 :FORT=1T088: NEXT : POKES4296 , Ty 
FoEin32 iin" 


I+K,WULCK> NERT 
1+18,65: FOKESI+11,65 


NEXT 
279,9: PC 277,28: POKES4278, 31: FÜKES4276, 129: FOKEPL, 15 POKES4273; 8 











ara FPOKEW+32.ALTA:POKEVY+33,ALTB 


I=H GOTO33A 
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2239 
2244 
2245 
2258 
22ER 
Z2ra 
223% 
2238 
2366 
2316 
2328 
23260 
2340 
235% 
2368 
237 
2372 
2376 
2377 
2290 
2330 
2406 
2418 
2088 
38681 
3082 
384 
3095 
3098 
301% 
2934 
3448 
3042 
3845 
3055 
356 
3057 
3053 
3053 
3068 





REM BOMBENTREFFER DER STADT 
FORK=54272T054296 ' POKEK,@: NEXT 
ALTE=PEEK (+33) o 
FOKES4273, 3: POKE54277 , 38: POKES S4296 7: 
FOKES4272, 186: FORTY=1STO@STEP-1 :FORT=1T0128: NEXT : POKES4236, TY 
POKEY+32, INTCRNDCAI#1SI+1 

FOKEY+33, INTCRNDCR)#15) : NEXT 


= FÜKEY+33, ALTE :POKEY+32, ALTE 


> FÜRK=ATOZ4 : POKESI+K, WI CK) :NEAT 
FOKESI+4,65:POKESI+18,65:POKESI+11,65 
 GIT=SEITHI 


FREINT"S"TABC1E)SCIT 
IFEIT=LEVYTHENGOTO2288 
FETURN 

REN STADT HIRD ZERSTOERT 


- FRINT" SIEIMIKTEIKEEEERAIHRE STADT WIRD ZERSTOERT |" 
' FEINT"ORBBBBBBRBBERFECH GEHRET 7?!" 


FÜRKE=542727T0542968 : POKEK, A: NE#ZT 2; er 
FOKESI+3,8:POKESI+6, 240 :POKESI+4 , 123: FOKEPL, 15:POKESI,1:POKESI+1,5 
R=A 

IFR=1ATHENFR=A : GOTO2280 ya 
FÜRT=1T018:POKEY+23, INTCRND(O) #19) +1: POKEVY+32, INTCRNDCH) #12) +1 
G5=INTCRND(CH) #320) +1 

Ü=INT(CRND(CH) #320) +1 

FÜOKE1624+G, 32 

FOÜKE16E24+C ‚32: NEXT 

FOKEW+32,15:POKE'Y+33,15 

FOKESI+4, 123: POKEFPL,15:POKESI,1:POKESI+1,5 
FORHY=1STOASTEP-1 :FORH1=ATO 1A : NEXT : POKEPL., HT: NEXT: R=R+1:G0T02216& 
FORGH=ATNS: POKEW+GH, A:R=R+1:NEXT 

FRINT"TT': IFSCO>HIGHTHENHIGH=SC0 : GOSUBEAHA 

POKEY+33,.7:POKEY+32,2 

FEINTTEREEIBBISIE HABEH IHRE AUFGABE NICHT EFFUELLT, " 
PEIHT"MBBBITROTZDEM HABEH SIE ";SC05" PUNKTE." 

PEINT"BBFSHIGHSCORE :"; HIGH 

POKES6222,255:FRINT'"MIIRBEHMOECHTEN SIE ES HOCH EINMAL " 
FEINT"BBNERSUCHEHN (.I/H) 7?" 

GETER#: IFER$="" THEN2365# 

IFER$=" J" THENHSCO=B : ANG=G:CIT=A: EN=999: TI$="AnRAAR" 

IFERt=" J"THENINPUT"MRLEVEL (4-1)";LEVYS:LEY=VAL(CLEYS) 
IFLEW<ZPIANDLEVYCDZANDLEVY<>3ANDLEYSP4THENLEY=1:GOTO115 
IFER£=" J]" THENGOTO115 

IFER£<>" HM" THEHZ236O 

PRINT IEITSCHUESS 111 1" 

PRIHT"MIMICH HOFFE DAS SPIEL HAT IHNEN GEFALLEN" 

PRINT" Mein" :EHD 

PEM ANGREIFER BESETZEN DIE STADT 

POKEV+1,0 

HUB=O 

ANG=ANG+ 1 

IFANGCATHENANG=@ 

IFANG=LEVTHEN3848 

PRINT"S"TAB(C37) ;ANG:R=100:0=9 

PETURN 

REM DIE STADT IST BESETZT 

FORK=54272T054296 :POKEK ‚8: NEXT. 

gr An 

POKEV+33, 15: +32,15: IT117177 ; 
PRINT" EDBBBBBBBISTADT EINGENOMMEN." MDIE ANGREIFER HABEN IHRE 
POKEPL, 15: POKESI, 158: POKESI+4, 65 
FORH1=288T09STEP-2:POKESI+1 ‚Hi :FORHT=BTO18:NEXT : NEXT 


POKEPL , 15: FORH=1T03: FORHI=128T08STEP-5:POKESI+1,,H1 :FORHT=BTO3B : NEXT : NEXTHI 


NEXTH: POKESI+4, 16 


4278, 31: POKES4276 , 123: POKEPL, 15 POKES4273,6 


— 


en 
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4445 
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6815 
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6025 
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A FRINT"wÄReIBBbBRBBRT = 


a: POKE'Y+5,9:POKEV+&,D 


PÜOKEY+B, BA: POKE"+1.,8: FPOKEW+2, A: POKEY+3,9 POKEY+4, 


3 POKENW+7,@M: POKEY+8,9: POKEY+9, 0 


IFSCO>HIGH THENHIGH=SCO : GOSUBEBHR 
FRINT'MBBBBELÖLLEHN SIE EIN NEUES 
PRINT" SIMERITSHIGHSCORE : "HIGH 
GETER®$: IFER$=""THEN3210 

IFER$=" IT" THENSCO=@ : ANG=@:CIT=0: FOKEY+32, 15: T1$="000990" 
IFER$=" I" THENINFUT"IBLEVEL 4-19"; LEVYE:LEY=YAL(CLEY$) EN=333 
IFLEYZ>IAHDLEYS>PZANDLEVS>PSANDLEY<P4THENLEVe1 'GOTO115 

IFER$=" I" THEN115 

IFER$="N'" THEN3248 


SPIEL <J/N)> ?" :POKES6322, 255 


> GNTO2218 


PRIMT" SIMSIIMeIeT SCHLIESS I 1 1" 
el. HOFFE DAS SFIEL HAT IHNEH GEFALLENMEIEINDEIRDEERN 


A REM KEINE ENERGIE MEHR 


PÜKEV+232,15:POKEV+33,15 

FEINT'"DBBRBBRBBBBBEHNERGIE VERBRAUCHT. ES DAUERT " 
FRIHT"UBRBBBBBBBBHICHT MEHR LANGE UND DIE STADT" 
PRINT" EMBBBBBBBRBBI IST ZERSTOERT" 

Are=l 

GOTI32R 

E#T=1024 : EAF=5529€ 

REM HIGHSCORE 

üPL=8 

GT=% 

FORK=34272T054296 : POKEK., 8: NEATK 
PRINT" 

PRINT" SHIGHSCORE 
IFÜOFU=Z3THENH1=50: GOTOBSESE 
GOTOEBSR 

rEM 

FOKESI+3,5:PÜKESI+6E. 249: FOKEFL., 15: FOKESI, 159: FOKESI+4, 65 
POKESI+1,H1:H1=H1+3 : FORGH=EOTÜS08 : NEAT 

PNKEW+3Z, INTERNDEGP #15? +1 

POKEY+33,7:GT=6T+1 

IFGT=11THENGOTOESGSE 

GOTOIEASE 

FORHI1=Z28ATOASTEP-3:POKESI+1,H1:NEAT 

PIKESI+4,65 
FRINT" SIMIMIMIem" : FOKEPL, 6: RETURN 

REM VORSPANN 

POKES3238, 15: POKES3251,15 

FORE=3427 27054238 : FORER, 9: NEAT 

PL=54295 

51I=54272 

POKESI+4,8: FOKESI+Z.8: FOKESI+3,5: FOKESI+E, 240 
POKEFL,S5:FOKESI+4, 129: POKESI . 250: POKESI+1,2 
ul ı IBBBBBI " 
PEINT"IBBRBBBRBIA IbbBI MI IbbbbBI Ib" 
FEINT'"'TSBRBBBBRBIA IBBBI ) IBDDBBI IHBBBBI " 
PEIHT'"IBBBRBRBBIA IBbBI I) IBBbBBI RBB 
PEIHT"EZ9BBPBBBBBI3 u ı IBBDBBI " 
FEIHT'"IBBBBBRBBIZ IbBBI I IbBBBBI IBBBBB " 


HIGHSCORE" : OFU=OPU+1 





A PRIHT"TSBRBEBBBBIA FDBDI )I IEbBRBI IDBRBBI " 


PREIHT'"IBDBRBBBBIA )bBbBbI » IbbBBBBbI IBBBBBI " 
FRINT"mIBBBBBBBBIZ IBbbI II IbbBBBI IBbBBBI " 
FEIHT'"IBBBRBBBBIG = an " m" 
FRIHT"ZIMIEEIBBRBBBBRBBBBB. CM NM FH I" 

PETUFH 

REM YVORSPAHH TEIL Z 

POKEPL‚,15:POKESI, 156: POKEST +4,65: FORH1=255ST08STEF-1 :POKESI+1,H1 NEXT 
FÜRH1=ET0255:POKESI+1,H1 :NEAT:POKESI+4, 16 

POKEFL, 15: FOKEST, 158: POKESI+4,65: FORH=8TOIG 
FÜRH1=18AT030STEP-4 : FOKESI+1 HI NEXT NEXT: POKESI+4, 16 
POKESI+4, 123: FOKEFL, 15:POKESI. 1: POKESI#+1.5 
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FÜRH=1STOASTEP-1 :FORH1=8T07@: NEXT POKEPL,H°NEAT E E 2 
den; POKESTHK 11 CK) NEXT :POKESI44, 65: POKESI+18, 65: POKESI+1 1,65 
Fl=fi 

FÜKEVY+G,.FU:POKEY+1.,188 

IFFIUI=24STHENFPU=8: GOTO83108 

FII=Fll+1 'G0T08290 

FÜKEVY+S.FU:POKEY+9, 180 

IFFU=SATHENPU=6G : GOTOS3SE 

FL=Fll+1 'G0TO8314 

TU=195 

FOKEY+4, 160: POKEY+5, 218 

FÜRG=ATOSAR : NEXT 

FEW=13RA 


POKEY+B, 248: POKEY+1, REU 
FÜKEY+S, 0: POKEY+3, REW:REW=REU-E 
IFREUZ=SATHENREN=REN+E 

FREINT: NEXT 

FÜRPLU=169TO116STEP-1 

FÜKEY+4,PII:POKEVY+5, 21% 

NEXT 

GOSLES4SE 

GOTOS7SA 

TuU=118 

FORA=1T014 

POKEW+4, TL:FOKEY+5, 218 

FÜRFU=ZBETOSESTEP-23 

FÜKEY+6., TU: POKEY+7,PU 

NEXTFU 

FÜKEY+6&.2:POKEY+7,8 

TU=TU+8 

OMAGOSUPSERG. 2614, 9620, 2638, 8648, 23650, 3668, 8678, 9690, 3698, 3748,8719,8728 
IFA=14THENGOSLUBS738 

NE#T 

RETUFRH 

POKE1116,3:POKESS383,3:RETURN 
POKE1117,5:POKES5389, 8:RETURH 
FOFE1115,12:FOKESS328, 8: RETURN 
POKE1119,9:POKES5391,8:RETURN 
POKE1124,.32:RETUFH 
POKE1121,45:POKES5333, 8: RETURN 
PCOKE1122,32:RETUFRN 
FOKE1123, 3: POKESS395,8: RETURN 
FOKE1124, 15: POKESS396 , 3: RETURN 
POKE1125, 13: POKESS3397 ,8: RETURN 
POKE112#,13:POKES5393, 8: RETURN 
POKE1127,1:POKES53399, 8: RETURN 
POKE1125, 14: POKES5488,8: RETURN 
POKE1129, 4: POKESS481,8: RETURN 
FPEINT'BERIIBBBBLZUR VERTEIDIGUNG DEINER STADT" 
PEINT"IBBBBISTEHT DIR EINE LASERKANDONE MIT" 
PEIMT"IBBBBIL GGG ENERGIEEINHEITEN ZUR YER-" 
INYASOREN VERSUCHEN" 
PEINT'"IBBBBMITTELS HELI’S DIE STADT EIN-" 
PFIHT"WBBBBEZUHEHMEN BZU DURCH ABWURF VON" 
PEINT"IBBBBIIONENBOMBEN SIE ZU ZERSTOEREN. " 
PRINT"IBBBBEEINE AUFGABE BESTEHT DARIN," 
PFINT"IBBBBIDIE BOMBEN VOR DEM AUFSCHLAG" 
PRINT"IBBBBIDURCH EINEN LASERSCHUSS ZU ZER-" 
FRIHNT"IBBBBEETOEREN UND DEN UNTEREN HELI" 
PREIHT"IBBBBIANM LANDEN ZU HINDERN. DAZU" 
PEIHT"IBBBBMUSST DU IHM VOR ERREICHEN DES" 
PRIHT"IBBBBRECHTEN BILDRANDES ABGESCHOS-" 


34 PRINT"IBBBBISEN HABEN. GENAUES TREFFEN IST" 


PRINT"IBBBBNORFAUSSETZUHG. " 
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FÜRFU=214TOSASTEP-1 
FÜKEV+4. PLI:POKEY+5, 219: NEXTPU 


" FRINTWBRBBHAST DU EINE BESTIMMTE PUNKTE-" 


FFINT'IBBBBERHL ERFEICHT, WIRD EIN TEIL" 

FEINT'IBBRBIER INVASOREN BZW DER IONENBOM-" | 
FEINT'IBBBBIBEN NEUTRALISIERT. IC TASTE)" | 
SETEFR#: IFEFR£=""THENS97O 

FÜRFU=SSATOGSTEP-1 | 
FÜKEV+3.PU:POKEY+9, 55 | 
NESTPLI 

FÜRFU=SSTORSTEP-1 

PÜKEW+G, 248: POKEY+1. PLI:NEXT 

FÜRFU=ATO24: PRINT :NEZT 

FÜFPLU=3AT0118: POKEY+4, PL: POKEY+S5 , 210: NEXT 

SOSUBS4SA 

FÜRFLU=214TO38STEP-1 : POKEY+4 , PU: POKEY+5 , 218: NEXT 

PRINT" WSIMKIKTEIRBBBBEIAEHREND DES SPIELS DARFST" 

FRINT'IBBBBIL HICHT ERSCHFECKEN, DEHN HAFH" 

FEINT'IRBBRNACH EINIGER ZEIT DAEMMERT ES" 

PEIHNT"IBBBBLHND ES WIRD DUNKEL." 

GOSLUBS3GG 

FEINT'MEIIIEEEBBEBBEIUHD HUHN VIEL SPASS" : POKEYW+4,9:POKEY+5,8 
FEINT'MEEIMELEVEL ? 4-13" 

GETLEYE: IFLEY£=""THEN9ASS 

LEY=YALÜLEYE£): IFLEYZPLANDLEYC>2ZAHDLEVC>ZANDLEYSC>4THENSASS 
FORK=54272T054296 : POKEK , 8: NEXT :RETUFN 
FÜRPU=38TO126 : POKEW+4 , PU: POKEYW+5 , 21: NEXT 

FÜRA=1T013 

FOKEY+4, PU: FOKEY+S, 214 

PL=FU+2 


a FORUT=ZAGT01 34: POKEY+E, PU-8 : POKEW+7 , UI: NEXTUI :POKEY+7,R 


ONAGOSLUE3S1A. 9520,9530. 9544, 9558, 9560, 9579, 9588, 3599 , I60R ‚9618, 9629, 9620 
FORUI=BT0158: NEXT NEXT: FORK=54272T054296 : POKEK , 8: NEXT RETURN 
REM LOFYRIGHT 
FÜKE1597 ‚48: POKESSS63, 2: RETURN 

POKE 1523. 3: POKESSS7B, 2:RETUFN 
POKE1593, 41: POKESSS71:2:FETLUFRH 

POKE 199,32: RETURN 
POKE1681 .13: POKESS873, 2:RETUFRH 
POKE16G2, 46: FOKESS374,2:RETUFRH 
POKE1683, 2: POKESS875: 2:RETURH 
FIKE1684,1:POKESSS76, 2: RETURN 
FOKE1595, 12: POKESSS77 , 2:RETUFN 
PÜKE1606 , 4: POIKES5878, 2:RETURN 
POKE1697 .1: POKESSS79, 2:RETURN 
POKE16B98, 21: POKESSS8@, 2: RETURN 
POKE1689, 6: POKESS821,2:RETUFHN 

FEM GET 

FOIKEV+4,9: POKEV+5,0 

GETEFF#: IFEFR$£<C>"" THEN37389 

GOTO3714 
FORK=54272T054296 : POKEK., 8: NEXT : RETURN 


10990 REM DATAS FUER SPRITES <LASERKANDNE , BOMBE,HELI1,HELI2) 


18991 
19995 
19819 
19029 
19939 
19949 
12950 
10960 
19970 
121099 
19118 
11009 


DATA, 9,0,9,0,0,0,90,0,9,90,0,0,9,0,80,0,0,90,9,8,3, 255, 255,8,2,0 

DATA132, 178,123, 194,158, 80, 234, 158,88, 194, 170, 168, 192, 170, 168,0, 232, 128 
DATAB, 178, 160,0,0,0,0,0, 0,8,80,0,8,8,8 

DATA, 9,90,9,90,0,0,9,0,6, »8,8,0,8,0,8,8,0,0,8,60,0,0,255.0.0 
DATA126,0,9,60,8,8,68,9, 24,8,8,8,8,8,0,8,8,8,0.0.0.0 
DATAB,0.0,8,8,8,8,0,8,0. 9,8,8,8,0,0,0, 16.0.8. 16.0.0. 1€ 
DATA ,9,16,9,8,16,8,80,12 15,136, 39,215, 200,47,215,232.127 
DATR215, 252, 127,215, 252,8,9,0 

REM DATAS FUER HUBSCHRAUBER TON 


DATR3, 2,8,3,9,0,248,12,2,8,4,8,0, 192, 16,2,8,6,0,0,64,0,30,243.24 


9,8 
9,8 
d,6 
9,8 
4,8 
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FÜRI=8TÜ062 :READR :CrL<Iyen: NEXTI 

FÜRI=O8T062 :READA:STCI)=R: NEXTI 

UATRZSS, 248,8, 127,248,0,127, e32,8,24,48,08,12,24,0,6, 12,0, 127, 255, 232,255 
UATRESS, 254,168,186,63, 179, 130, 255, 138,178, 127,178, 186, 255, 168, 186, 63, 255 


8 IATR2SS.254,127,255,252,6, 12.,0,12,24,0,24,48,0,127,252,8,127, 248,8, 255,240 


DATAB, 28,0,8,62,0,8,127,0,8,247, 128,0, 235, 128,08,247, 128,0, 127,0,0,62,0.8,25 
DNTR®,8,0,8,8,8,0,0.0,0,8,8,8,0,8,8,8,0,0,0,0,8,8,0,0,0,0.0.0.0.0.0.0,0,0.0 
DNTRB, 8,8, 128,0,3,128,9,15,128,8,63, 128,0,231,128,0.63,128,0,15.128.0.3.123 
DATAB,0,128,0,8,0,8,0,8,0,8,0,8,8,0,2,0,0,0,0,0,0.0.0.2,0,0.0.0.0.0.0.0.0.0 
DATRB,8,0,8,0,31, 235,248, 127,255, 254,255, 255, 235,99.275. 198.56. 126,28. 31 
DATAB, 248, 15, 255,248,7,255, 224,3, 255, 192,1,253,128,3,8,162,7, 205.224, 12,9= 
UNTA248, 23,213, 243,61,237, 252,126, 108, 126, 143, 235,241 ,96, 126.6.21 0,248. 7 
DATAZSS, 224, 1,255, 128, 8, 178,0, 2,170, 128, 13, 234, 160, 15.234, 168, 63, 170,248 62 
DATA170,248, 63, 170, 248,191, 170,259, 181,234, 122, 181,234, 122, 181,294, 122, 187 
IHTA171,122, 190,169, 186, 198; 169, 186, 174, 173, 122,46,173, 120.39, 178, 232029 
DATAL7S,232,15,171,169, 15,171, 168,3, 179,123 

POKE2048, 13: POKE2841 , 14 :POKE2842, 15: POKEV+39, 14: FOKEV +48, 8: POKEY+41, 173 
FOKEYV+Z3, 9: POKEY+29,9:POKE2843, 11: POKE2844, 13: POKEW+43, 13 

FOKES1+4, 8: POKESZ+4,0:POrES3+4, 0: POKEPL,O 

FRINT'IRDBEBBEIH SPIEL YON STEPHAN FROEHLICH" 

INFUT"MMUENSCHEN SIE EINE ERKLAERUNG" ;E$ 

IFE&="N"THENGS3BO 

PRINT" T'CHR$C14); 

PRINT'"BEMTIE HI®L#4-|1--M TREIBT MIT SEHR WENIG" 

PRINT"IREIESTOFF IM ®LL.#IE WERDEN MIT EINEM" 

PRINT"KLEINEM, BEUAFFHETEN -ALMGLEITER AUSGE-" 

FRINT"RUESTET UND AUF DIE #UCHE NACH : Ent 

FRINT"GESCHICKT.ER ILEITER IST IN DER LAGE," 

PRINT" -AUMSFRUENGE IN ANDERE | ALAXIEN AUSZU-" 

PRINT"FUEHREN.@BER PASSEN #IE AUF, DASS IE" 

PRINT"NICHT DEN -ONTAKT ZUM IASISSCHIFF VER-" 

PRINT"LIEREN.#IE HABEN —MERGIE FUER 18 -AUM-" 

PRINT"SPRUENGE, DANACH MUESSEN #IE BEI DER" 

PRINT" I @L2-1- MM AUFTANKEN,WENN #IE NICHT" 

PRINT"EINEN "LANETEN MIT IHYLIUM GEFUNDEN" 

PRINT"HABEN.#IE MUESSEN DAZU DIREKT AUF DER" 

PRINT" AI@L®/|S/@E ODER DEN "LANETEN LANDEH. " 

PRINT"-ALLS sIE DEN DR IL ul IN DIE" 

PRINT" IRENDE FALLEN SOLLTEN,HABEN #IE UND " 

FRINT"DIE AI@L#-|1-74M "TECH GEHABT." 

POKE138,8:WAIT198,1:PRINTCHRSX142) 

FRINT'TERRUSTEUERUNG : FEUER = SPACE" 

PRINT"M LINKS = +” RECHTS = 1°" 

PRINT"M UNTEN = =’ OBEN u 

FRINT'"WWEIH MEHRMALIGES DRUECKEN DER FAHRT-" 

FRINT"SRICHTUNGSTASTEN ERHOEHT , BZU. SENKT" 

FRINT"MDIE GESCHWINDIGKEIT IN DER JEWEILIGEN" 

PRINT"MRICHTUNG.DIE SCHUESSE (SPACE) ERFOL-" 

PRINT"BGEN IN RICHTUNG MAXIMALER GESCHWIN-" 

PRIHT"MDIGKEIT." 

INPUT" WWALLES KLAR";ES 

IFE&="N'"THENPRINT"BBMACHT NICHTS": FORI=8TN1888 : NEXT 
FOÜRI=8TO16:FORJ=BTO18:TES«I, J)=" ":NEXTI,I 

TEF(A, O="GALAKTIKA" : ZR=0 : Z0=9 :EN=Q : ZH=B: Zend 

FORI=1T07 


Ti=INTCRNDC1)#6) : TZ=INTCRNDC1YN6) 

IFTE$CT1,TZ)I<CD" "THEN?7ZBO 

RERDTES(TI1,T2) 

NEXTI 

DATABASISCYLON, CARTLON, ERESTAN, MORTNIA, KREGEN, SARPUS :S.L. 
BU=LEN(TEFCZH,ZW)) 

GOSUBZOBE :%=160 : Y=199: XS=% ' DX=Q: DrY=B:POKEV+16,D 


POKEV+2,% : POKEY+3, 7: POKEY+Z21,2:POKE198,0 
ONBUCOT0388, 908, 980, 2598, 900, 850, 850, 980, 820, 830 
FOR1=3T09 : FORJ=3T015:POKE1024+J+4@WI , 32! NEXTJ, I 





Juan E06) W Ro 


GoOGGCSSTSGTG UGS HG MG 


VDUVUDOUIUIUOO DO DO OR Co 
In RUoRr- GG 


17) 


EN 





FÜKEV, 188: FOKEV+1., 88: POKEV+21., FEEK(V+219+1:GOTO988 
FÜRI=8TOSZ :POKE7@4+1,CHLCIY:NEXTI 

FORI=12T017  FORJ=25T033:POKE1824+J+48M1,32:NEXTJ,I : 
FÜKEV+42, 13: POKEY+&, 250: FOKEY+7 , 150 : POKEV +21, PEEK(W+219+8 
POKEW+28,0:G0T0338 

FORI=8TO62 'FÜKE?@4+1,5TCI):NEXTI Bi, 
FORI=11T017:FORJ=21T027 :POKE1824+J+ ‚32: a 
FOKEW+42,6: PÜKEV+28, 8: POKEY+37, 5: POKEV+38, 9: PÜKEV+Z1, PEEK(V+21)+8 
PÜKEN+6 , 288: POKEY+7,158 

IFINTCRHDC1)K2)=1THENF2B 

AC=d CH=B: Bx=2:KE=340  EX=KE | FX=-2: 6070930 

“C=340 :04=348 : BA=-2: XE=B:EX=D:FA=2 

IFINT<RND<1)%2)=1THENSSO 

rC=d:BrYe2: VE=255:Fr=-2:G0T0968 

YC=255:Br=-2:Fr=2:YE=9 

Ji=1:J2=1:G0SUB2698 

FOKEW+4, XC : POKEY+5, TC: FOKEY+B, KE : FOKEW+3, VE 

FÜKEV+21, PEEKCY+21)+28 


i008 IFFEEK(W+31)=2THEN1388 

iSöig POKEW+31,8: IFPEEK(V+3B)<>OTHEN.SOR 
idz6 FOKEY+38,8 

1035 GOSUBZ2688 

1648 PÜKEV+4,XC : POKEW+5, TC 


8 FÜKEV+8,KE:POKEV+9, TE 


i168 FÜKEV+2,X:FOKEW+3, 
iilo GETSE 


> IF5$=" "THENGOSUBZ7OR 


1128 IFS$="+"THENDK=DX-1 
1138 IFS$=""THENDY=DX+1 

1149 IFS$=" 1" THENDY=DY-1 

1158 IFS$="="THENDY=DY+1 

1169 GOSUBZ186:GUT01880 

1308 POKEV+Z1,PEEKCV+Z1)-2:L=INTCCKS-16) /B)+INTLCW-443/B)48 : POKEN +31, 0 
1318 POKE1824+L, 102: POKESS296+L,7 

1320 GÜSUB1486: FORI=8T02Q0 : NEXT :FOKEY+21, 6 

1330 FRINT'TIWWMBISIE HABEN EINEN STERN GERAMMT," 

1348 GOTO3188 

1488 FORG=15TOBSTEP-.5 

1418 FOKEPL,G:POKES145, 15: POKES1+6,.8:POKESI+1, 1: POKES1, 98: POKES1+4, 129 
1428 NEXTG 

1438 POKES1+4,0:POKEPL,® 

1448 RETURH 

1509 IFPEEK(Y+30)=3THEN1538 

1518 IFPEEK(Y+38)=60RPEEK(Y+3@)=18THEN1S88 

1528 IFPEEK(Y+38)=18THEN161® 

1525 IFPEEK(Y+38)=5ORPEEK(V+39)=12THEN13BB 

1525 IFPEEK(V+39)=17JRPEEK(Y+3@)=24THEN195Q 

1527 GOTO18G8 

1538 POKEV+38,B: IFABSCDX>>1ORABSCDYI>LTHENGOSUB13S58:G0TOLJ1B 

1548 EN=B' DX=8: DY=9:k=16B: 7=188:X5=160 : POKEV+3B, 8: B0T0119Q 

1958 FORISSTO7FORJ=11T013:POKE1824+J+4BWI , 182: POKESSZI6+J+AQMI,7:NEXTJ, I 
1560 GOSUB1488  GOSUB1498 :FOKEY+Z1 8: GOSUB1499: RETURN 

1578 GUSUB1488:FORI=8T0288 :HEXT :GOTO1F1@ 

1588 FOKEV+Z1, PEEKCV+21)-2:L=INTCCKS-169/BI+INTCCY-44) /B)M4B:POKEY+3B, 0 
1590 FOKE1824+L, 102: POKESS2I6+L,7 

1686 GOSUB1488:FORI=QT0288 ' NEXT: GOTO1928 

1618 POKEV+38,8: IFLEN<TESCZH, 24) )=4THENZ400 

1628 IFIEN<TESCZH, Zu) )=6THEN1658 

1638 IFLENCTESCZH, ZU))=7THENL69B 

1648 IFLEN(TE$SCZH, ZY))=1DTHEN1898 

1656 IFABS(DX)>1ORABSCDYI>LTHENL73B 

1660 PRINT" WEMEWIICH GRATULIERE |": PRINT"MISIE HABEN AUF" 


PRINT"MI'TESCZH,ZW)" THFYLIUM GEFUNDEN. " 
50T03188 
IFABSCDX>D1ORABSCDT)>LTHENI73O 











17080 
1r7iöo 
1720 
ir25 
ir730 
1746 
1758 
1308 
1318 
1328 
153308 
1846 
1858 
13688 
13086 
1310 
1213 
1328 
1325 
1238 
1335 
12468 
1359 
2000 
2018 
2028 
2638 
28468 
2058 
20608 
20878 
2638 
2163 
2165 
zi18 
ziz26 
2138 
zir7ö 
2206 
22108 
22208 
2230 
2248 
2258 
2260 
22708 
2250 
2290 
2308 
2318 
2328 
2336 
2346 
2350 
2368 
2378 
2400 
2416 
24£9 
24308 
2448 
2458 
24608 
2478 
24508 





»" KEIN THYLIUM. " 


FRINT"SLEIDER GIBT ES AUF "TESCZH, ZU 
FORI=BT0O2988 :NEKT 

PRINT" " 
"=150:45=160: 7=198 : Di=8: Dr»: POKEV+30,8:G0T01108 


FOURI=12T017 : FORJ=22T027 :POKE1924+J+48W1 , 182: POKESS296+J+4BW1 ,7:NEXTJ, I 
FÜKEW+21, PEEK(Y+21)-2 

GOSUB1408 : FORI=QT0298 : NEXT :GOTO1338 

FORI=12T017 : FORJ=28T033 : POKE1B24+J+40W1, 182: POKESSZ36+J+49W1,7NEXTJ, I 
FÜKEVW+Z21, PEEK(V+Z1)-2 

DUSUB1 486: FORI=STO288 : NEXT :POKEY+21,8 

PRINT" TIRRIIBBISIE SIND VON DEN KRAFTFELDERN" 
PRINT"MBDES CTLONISCHEN BASISSCHIFFS YER-" 
FRINT"BSBENICHTET WORDEN. " 

COTO3S18O 

ACEÄCH EHEN CH=CH+ 1 3KBR  VC=TC+L8HBT : POKEY+30,8:G0T01930 
FRINT' IMMMSIE SIND MIT ZU HOHER BESCHWINDIGKEIT" 
FRINT"MIN DIE GALAKTIKA EINGEFLOGEN. " :GOTO310B 
FRINT'TIKBIINDER C'LONENJREGER HAT SIE LEIDER " 

FRINT" ERWISCHT." :GOTO3108 

PRINT" UWREMSIE SIND MIT ZU HÜHER GESCHWINDIGKEIT" 
PRINT"MAUF DEM PLANETEN "TEF(ZH,ZY) 

PRINT" MAUFGESCHLAGEN. " :GOT03198 

KESKE+FLEHFR EXRSEH+LBAFK : 7 =TE+iS4F'Yr :FOKEV+30,8:GOTO1838 
FRINT" IE" 

FÜRI=OTOSE 

K=INTCRND(13%9399)+1924 

FOKEK, 42: POKES4272+K ,1 

NEAT 

FORI=STO8:FORJ=165T01% 

POKE1B24+J+40 81, 32 

NEATJ,I 

RETURN 

IFCXRS+DAD>34DUR CKS+DK)COTHENZZOR 
IFCT+DTI<BOR CH) >25S5STHEN2208 

A=AFDK: V=r+Dr7  ASekS+D% 
IFK>ZSSTHENK=X-255 : POKEY+16 , PEEKCY+16) +2 
IFX<OTHENX=255+% : POKEV+16, PEEKCW+16)-Z 

RETURN 

FOKEY+21,8:POKEV+16, 8: FCKEPL, 15:POKES1,2:FOKES1+1, 14: POKES2, 2:POKESZ+1, 14 
POKES3, <: POKES3+1, 14: POKES1+4,33: POKES2+4 , 33: POKES3+4 ‚33 
PRINT TIRDMIRDIKIRKENNDN" TAB «163 " RAUMSPRUNG" :FORI=BTO78B: NEXT 
FOKES1+4,8: ROKES2+4, 9: FOKES3+4,8: POKEPL,8 
IFCAS+DX) 3348 THENZR=ZR+1 :EN=EHN+1 
IFCKS+UK)<BTHENZR=EZR-1 :EN=EN+1 

IFCT+D'T) LOTHENZO=Z0+1 :EN=EN+i 
IFCr+D'Y)>>255STHENZO=Z0-1 :EN=EN+1 

ZH=ABSCZR) : ZV=AB5(Z0) 

IFEN<>STHENZ348 

PRINT" IIIWSIE HABEN 5 RAUMSPRUENGE HINTER" 
PRINT"MSSICH. IHRE ENERGIE REICHT NUR FUER" 

PRINT"MS WEITERE RAUMSPRUENGE. " 
FÜRI=8T05898 : NEXT : PRINT"7]" :GOTO76B 

IFEH<11THEN7EO 

FRINT'TDINIEWMLEIDER I5T IHRE ENERGIE VER-" 
FRIMT"MBRAUCHT." 

GOTO3188 

POKEW+21,8:POKEVY+16,8:POKEPL,15 

FRIMT'IBBBISIE SIND LEIDER IN DAS ANZTEHUNGS-" 
PRINT"WBBFELD EINES SCHWARZEN LOCHS GERATEN. " 
PRINT"MMBBBEEE YOU IN THE NEXT UNIVERS" 

POKES1+4,65 

FORI=255T085TEP-2 :FORJ=258T095TEP-S50 
POKES1,J:POKES1+1,1I 

NEXTJ,I:POKES1+4,8 

GOTO3188 





<S00 
<S10 
2Ie0 
2S5s6 
240 
e345 
ke te) 
eI60 
Pd =1%]% 
Z6i0 
PS 
<6öSD 
2640 
PA-}e]% 
<6S1 
2632 
2633 
ces 
Pr Sehe’ 
<&I6 
2655 


FOKE 704, 255: POKE7BS, 255 ' POKE786, 255 
FÜRI=7B7T0O7&E35TEP3 

FOÜKEI, 128: POKEI+1,8:'POKEI+2, 1 

NEXTI 

FÜKE764 255 : POKE765, 255 : FOKE766, 255 


FORI=7T012:FORJ=i8T023: POKE1824+1+4BMJ, 32 :NEXTJ,I 
PÜKEV+42, 11: POKEV+21 , PEEK(Y+21)+8 : POKEV+6, 78: POKEV+7,286 


PÜKEV+26 ,8:GOTO9B8B 

IFAS>CATHENBX=2 : GOTO2Z628 

EX=-2 

IFXS=CXTHENBA=B 
IFY>TYCTHENBY=2 : GOTO2658 

Br=-2 

IFr=TLOR(CYC+BrT) <BORCTC+Br ID >255THENBTr=B 
IFAS>PEXTHENFX=2 : GOTOZ653 

Fi=-2 

IFXS=EXTHENFX=B 
IFYDTETHENFY=2:GOT02656 

Fr=-2 

IFr=TEOR CTE+FT)<BOR (TVE+FTIDZSSTHENFT=B 
IFJi=BTHENZE7S 





2576 IFXC>PZSSTHENXC=KC-235 : POKEV+16, PEEKCV+16)+4 

2575 IFXC<BTHENXC=ZSS+XC : POKEV+16., PEEK(Y+16)-4 

2675 IFJZ=ÖTHENRETURN 

2658 EX=EX+FX : KE=XE+FX : VERTEHFY 

2682 IFXE>2SSTHENKE=KE-255 : POKEV+16., PEEKCV+16) +16 

2685 IFXE<OTHENKE=255+XE : POKEV+16, PEEK(V+16)-16 

2698 RETURN 

2706 IF<ABSCDX)-ABSCDY)>=BTHENRETURN 

2718 KF=INTCCKS-16)78) : YF=INTCC'Y-44)79) :POKEV+31, 8 | 

27208 IF<ABSCDXÄ)-ABSCDT)I>OTHENZ27SO 

2738 IFDY<OTHENZ7UB | 

2748 IFNV>BTHENZ338 | 

2758 IFDX<OTHENZ288B 
i 
| 


| 
2658 KC=XCc+BX: TC=YC+BYV :CK=CK+BX 


2766 IFDX>BTHENZ338 

2788 FÜRI="FTOBSTEP-i 

2736 POKE1824+XF+40#1, 66: POKESS2I6+XF+40M1,7 

2888 IFPEEK(V+31)=4THEN3008 

2801 IFPEEK(V+31)=16THEN388S 

2862 IFPEEK(YW+31)=1THEN3388 

2303 IFPEEK(V+31)=8ANDLENCTEFCZH, ZW) )=6THEN3498 

2804 IFPEEK(Y+31)=SANDLEN(TEFCZH, ZV) )=18THEN3SBB 

2810 POKEI1B24+KF+48#1,32 

2826 NEXTI: RETURN 

2530 FORI=YFTOZ4 

2546 POKE1824+XF+48W1 ‚66: POKESSZI6+KF+40W1, 7 

2856 IFPEEK(Y+31)=4THEN3888 

2851 IFPEEK(V+31)=16THEN32BS 

2852 IFPEEK(V+31)=1THEN339® 

2853 IFPEEK(V+31)=@ANDLEN(TESCZH, ZV))=6THEN3400 

2854 IFPEEK(V+31)=BANDLENSTESCZH, ZV) )=1OTHEN358B 

POKE1024+XF+4@W1, 32 

NEXTI: RETURN 

FORI=XFTOBSTEP-1 

POKE1024+1+40WYF ‚67 : POKESSZI6+1+40MYF ‚7 

IFPEEK(V+31)=4THEN3858 | 

IFPEEK(V+31)=16THEN3@SS | 

IFPEEK(V+31)=1THEN33B8 | 
| 
| 
| 


IFPEEK(V+31>=BANDLEN(TESCZH, ZV))=6THEN34BB 
IFPEEK('V+31)=BANDLEN(TES(CZH, ZV))=1BTHENIEBRO 
POKEi1824+1+40M'YF ‚32 

NEZTI : RETURN 

FORI=XFTO33 











3855 IFEXPZSSTHENPOKEV+16, PEEK(YV+IE)-i6 

Je=8 : POKEW+31,8:POKEW+Z1, PEEK(W+219-i6 
PÜKEiB24+1+40#TF , 182: POKESSZISE+HI +4" , 7 
GOSUB1486 : FÜRJ=ETUZBGB : NEXT: P=F+1 

FÜKE1824+1+40%'YF, 32: RETURN 

FOKEV+21,8:PRINT"SSIE HABEH "P" CrLONEHJREGER" 

PRINT" MABGESCHÜSSEN. " 

GOSUB3206 :FÜKE193,8 

PRINT"MURRLÖOLLEH SIE NOCHMAL ? LJ/HI" 

GCETR#: IFR&=""THEN3148 

IFR&<>" I" THEN3178 

EH=6:F=8: ZH=B : ZV=B : POKEY+16,8:G0T07689 

POKES3Z88, 14 : POKES3281, 6: PRINT"TZI' :END 

FOKES2Z+S, 15: POKESZ+6, 8: POKES3+5, 15: POKES3+6, 8:FÜKEPL, iS 
FOKESZ+4,65: POKES3+4,65 

FÜRI=8TOZOG 

FÜKESZ, 2:FOKES2+1,45:FOKES3, 2: POKESS+1,44 

FORJ=8T018:NEXTJ 

POKESZ, 2: POKES2+1, 1980: POKES3, 2: FPOKES3+1, 189 

NHEXTI: POKEFL, 8: FOKESZ+4, 9: POKES3+4,8: RETURN 

GOSUB1558:FRINT' DOUIWSIE TROTTEL HREEN DIE SGRLAKTIKAM ' 

PRINT" MABGESCHOSSEN. ":GOTO3198 

FORI=12T017 : FORJ=22T027 : POKE1824+J+49%1 , 1BZ : POKESSZ36+J+4@%K1,7:NEXTJ, I 
GUSUB. 408 : GOSUB1488 ' POKEV+21 , PEEK(Y+21)3-8:GOSUB1498 
PRINT"SGRATULIERE,MITTEN INS THYLIUM..." 

FORÜ=E8TO1888 :NEXT:PRINT'® g 
FORI=12T017: FORJ=22T027 : POKE1024+J+48 #1, 32: NEXT, I 

TESCZH,ZV)=" ":POKEW+31,0:G0T01188 

IFDA>OTHEH3SSQ 

FORH=ITOAF : POKE19Z24+N+40%'7F , 38 : POKESSZIEHN+4OHTF , 13 

FORH1=8T028 : NEXTN1 :POKE1824+N+40W'T/F , 32: NEXTN 

FOKEV+21, PEEK(W+21>7-2: POKELBZ4+KF+4BH"TF , 182 : POKESSZIG+KF+A4OHYF , ı3 
GOSUJB14088 : FORN=BTOZOB : NEKTN - GOTO3SHQ 
FORN=ITOXFSTEP-1 : POKE1924+N+40MYF , 98 : POKESSZIG+HN+4DRYTF , 13 
FÜRNI=1TOZ8 : NEXTH1 : POKE1824+N+4@W'YF , 32: NEXTN 

FOKEV+Z1, PEEK(V+213-2: POKE1924+XF+40MF , 182: POKESSZIE+KF+AOHMYF , 13 
GOSUJB1488 : FORN=8T0288 : HEXTN: GOTU33090 

IFD'T>OTHEN365® 

FORN=ITOYF : POKE1824+XF +40 1, 98 : POKESSZIGHN+4OHYF , 13 

FORNI=BTOZB : NEXTNi : POKE1BZ4+XF+40M 1 , 32: NEXTN 
POKEV+Z1,PEEK(V+21)-2:POKE1824+XF +40 F , 182: POKESSZIG+HKF+AOMYF , 13 
GOSUB14088 : FORN=8TDZ288 : NEXTN : GOTO3388 
FORN=ITOYFSTEP-1 : POKE1924+XF+4BMI , 98 : POKESSZIE+KF+4@H 1, 13 
FORHi=1T028 : NEXTN1 'POKE1924+XF+40W 1, 32'NEXTN 
POKEV+Z1,PEEK(WV+21)-2:POKE1924+%XF+49W'YF ‚, 182 : POKESSZI6+KF+AOMYF , 13 
GOSUB1 486 : FORN=8T0288 : NEXTN : GOTO3888 

PRINT" UODDAS CHLONISCHE BASISSCHIFF HAT" 

PRINT"MSIE LEIDER ASGESCHOSSEN. " 'GOTO3188 


2546 FOKE1824+1+40MYF ‚67 :POKESSZI6+ +40 IF ‚7 
2350 IFFEEK<Y+31)24THEN3DSB | 
2351 IFPEEK(V+31)=16THEN3BSS 

2352 IFFEEKCW+31)=1THEN330Q 

2353 IFPEEKCV+31)=SANDLENGTESCZH, ZW) )=6THEN3498 

2354 IFPEEKCV+31)=SANDLENLTESCZH, ZW) )=1BOTHEN3ERD 

2368 FOKELGZ4+I4+40WYF , 32 

2578 NEXTI:RETURN 

3668 IFCX>255THENPOKEY+1S, FEEKCW+IG)I-4 

3002 J1=8: POKEV+31,0:POKEV+Z1, PEEKCY+Z1)-4:60T03919 

505 IFEXR>ZSSTHENPOKENV+16, PEEKCY+16)-16 

>807 J2=8: POKEY+31,8: POKEY+Z1, PEEK(V+Z1)-16 

>816 FOKE1G24+XF+49%1, 102: POKESSZIS+HKF+4OHL, 7 

3828 GOSUB1 488 :FORJ=BTI209 : NEXT :P=P+1 

3638 POKE1824+KXF+49#1, 32: RETURN 

3858 IFCK>ZSSTHENPOKEV+16, PEEKCVW+16)-4 

3652 J1=8:POKEW+31,8:FOKEY+21, PEEKCW+Z1)-4: GOTO3O6B 











CATCH N’GOGO 


für den TI-99/4A 


ks. Es handelt sich um ein Spiel 
Joystick über den Bildschirm 


Das Programm läuft auf einem TI-99/4A mit Joystic 
für 2 Teilnehmer, die je eine Spielfigur mit dem 


bewegen. 


Spieler | kann doppelt so oft ziehen wie 
Spieler 2 und muß diesen einfangen. 
Dabei stehen bei jedem Spiel, dank 
RANDOMIZE, neue Hindernisse im 
Weg. Der Gejagte kann sich jedoch bei 
höchster Gefahr in ein Fragezeichen 
retten. was bewirkt, daß beide Spieler 
an irgendeiner Stelle des Bildschirms 
neu wieder auftauchen. Der Jäger kann 


} REM 
i REM 
126 REM 
136 REM 
i4@ REM | 
156 DEF W=L-Y/4 
166 DEF Y=M+R/d4 
ı7& DEF A=sZ-Wrd4 
154 DEF E=S+X/4 


ik 
1 


m (7) 
Zi (51 


216 D=32 

226 E=42 

256 F=43 

24a J=1 

250 K=2 

266 HI=32768 
276 F=6 

256 CALL CLEAR 


sag FOR I=2 TO 12 


13G DEF Q=(C=E)+cC=l>+l 
za6 DEF R=iC=F>+tC=l’tl 


diese Möglichkeit ebenfalls benutzen, 
wennihm der Abstand zu seinem Opfer 
zu groß erscheint. Doch nicht jedes 
Fragezeichen bringt die Rettung und 
schon garnicht dasselbe Fragezeichen 
zweimal. Die meisten verhalten sich 
wie gewöhnliche Hindernisse. 

Nach dem Titelbild des Programms 
und nach der Frage nach dem Weiter- 


* CATCH N’GOGÜ %* 
#KNOBLÜCH/WEBER# 


2938 CALL CHAR(E, "1895E725243CE404" ) 


machen am Schluß geht es durch 
Drücken auf den Feuerknopf weiter. 
Durch FCTN 4 (CLEAR) wird das Pro- 
gramm beendet. Durch einige Pro- 
grammiertricks, wie den Gebrauch des 
Befehls DEF Funktion, konnte erreicht 
werden, daß das Programm eine für 
BASIC recht schnelle Grafik besitzt. 


316 CALL CHAR(E2, "aass44a4as1aaala" >) 
324 CALL CHAR«(S4. "4343FF2424FF3434" ) 
a4@ CALL COLORCI,Z,113 

356 NEAT I 

368 CALL COLOR(1,2,4) 


376 CALL SCREENGE) 
388 FRINT :::" " 
398 PRINT " # CHTCH N’ GOGO #" 
456 FRINT " LU DE 22802722 722,2/2.2/2  ZUESESEZE 
416 FRINT " ";CHR$SCEIS5" --- DER JAEGER": :: 
426 FRINT " "SCHR&CF>:" --- DER GEJAGTE"::: 
2 Bahr e RR --- EIN HINDERNIS": :: 
n ? --- IIAS FRAGEZEICHEN u. 
445 PRINT " 722 VIELLEICHT 77773: 7° BELOT. DAR RETTUNG" 
458 FESTÜRE 
466 FOR I=1 TO 24 
470 READ AR,EB,CC 
456 CALL SOUND <AA,BB,CC) 
436 CALL KE'Y(1,2,5) 
saa CALL KEY(Z2,2,T) 
516 IF 5+T THEN 546 
526 HEAT I 
526 GOTO 456 
546 CALL CLEAR 
s56 CALL COLOR(S,16,5) 
5608 FRINT ee DEN BER IT ee meıR Ki 


ai a u IE RT FB ER 

















Sa CALL SCREENG?) 
sea CALL HCHARCI»2.64, 21) 
S3G CALL HCHARG24,2,64,31) 


eaa CALL YCHRAR«(?,2,64,223 


-. 
-— 


‘46 NEXT I 

r56 CALL COLOR(4,186,14) 
r66 CALL COLOR(2,2,4) 
rr8 Z=Z1#RND+2 

rS40- S=25#RND+3 

r36 L=2Z1#RND+2 

sad M=2S#RND+3 

216 CALL HCHAR«CZ,S,E> 
Ss2z8 CALL HCHAÄR<L,M,F) 
356 CALL JOYST£J,%,Y) 
s48 CALL GCHAÄRCA,B,C) 
856 IF Q THEN 1566 

866 CALL HCHÄR(Z,S,D> 
S7a S= 

558 Z=A 

836 CALL HCHAR(Z,S.E> 
988 CALL JOYSTCK,x, 7) 
918 CALL GCHARCH,W,C) 
926 IF R THEN 1466 

3368 CALL HCHAR<L,M,D) 
2468 L=W 

35a M=Y 

968 CALL HCHAR<L,M,F> 
978 CALL JOWSTCJ,%,V) 
958 CALL GCHARCA,B,C> 
9336 IF @ THEN 1566 

1866 CALL HCHAR(Z,S,D» 
1616 5=E 

1826 Z=A 

1838 CALL HCHAR(Z,S,E>» 
1848 P=P+J 

18568 GOTO 836 

1868 IF C<63 THEN 1696 
1878 CALL SOUND<-28, 446,6) 
1086 GOTO 836 

1896 IF C<>62 THEN 1158 
1188 CALL SOUND(-S588, 524,6) 
1118 CALL HCHAR<(WU,Y,63) 
1128 CALL HCHAR(Z,S,D)» 
1138 CALL HCHAÄR (L,M,D) 
1148 GOTO 776 

1156 CALL HCHAR(Z,S,D> 
1168 CALL COLOR (8, 16,7) 
1178 CALL HCHAR(L,M,88) 


1186 CALL SOUND<56, 262,6, 330, 1,392,2) 


1198 CALL SCREEN<(11) 
1266 CALL CLEAR 

1218 FOR 1=2 TO 12 
228 CALL COLOR(I,2,1> 


elf CALL YCHÄARC2,3a2,64, 22) 

Bei CALL VYCHÄRC2,31,32,22) 

sa CALL COLORCi,4,4) 

546 FAHNDOMIZE 

ed FÜR I=1 TO 1A 

BEE CALL HEHARCZIHRND+2, 2S#END0+3, 6 
Er’ii NEXT I 

ES CALL COüLORid,4,4) 

690 FOR T=1 Tores 

‚aa CALL HEHÄARGEIHRNI+2,2S#RND+Z, 
rl&a NEXT I 

’26 FOR I=1 TO 25 


1 CHLL HCHARCEI#RNIDO+E, 23#RNID+3, 62) 


62) 























H-II/HA 


NEXT I 
IF F<HI THEN 1356 

FRINT "GESCHAFFT NACH" ;PF; "RUNDEN" 
FRINT HI: "WOLLEN SIE WIRKLICH NCCHMAL 7" 
CALL SOUND «1000, 262, a,3380,1,95°2: 
CALL Se 338,80,392; 1; 
CALL SOUND<2608, 392.6,524, 1; 
RESTÜRE 

FÜR I=i TU 24 

RERD AR,EE,CC % 
CALL SOUNDCAR,BE,CC) 
CALL KEYr(1,2,5) 

CALL KEY(Z2,Z;T2 

IF 5+T THEN 276 | 
NEXT I 
GOTO 1296 
HI=FP 
PRINT 
FRINT 


nu 


12560 
1244 
1290 
1299 
1266 
1276 
1206 
1296 


I- 15 Ö 





"BESTLEISTUNG WAR”; 
392,2) . 
we erıE? 

% 


660, 








DD 5 


222222: "GESCHAFFT NACH" ;P 5 "RUNDEN" 


"NEUE BESTLEISTUNG” | 
::::"MOLLEN SIE WIRKLICH NOCHMAL”? 


DON EN 1. 


al I GI GI GI GI I a 


ff de Di fee (ae 
DIN DH 


- 
pr 


1446 
1456 

1466 
1476 
1456 
1496 
1546 
1516 
1526 
1536 
1540 
1554 
1568 
1576 
15586 
1596 
101517 
1614 
1620 
1636 
1646 
1656 
16668 
1676 
1630 
1694 
1706 
1718 
1720 
1736 
1746 
1758 
1766 
1778 
1736 
1730 
1346 
1318 
1820 
1530 
1348 
1856 
1566 
1876 
1350 


CALL 


SOUND<1EGG, 262; 


FÜR I=1 TÜ 27 


K=-K 
CALL 
NE#T 
CALL 


FÜR I= 


K=-K 
CALL 
NEXT 
CALL 


FÜR I 


K=-K 
CALL 
NEXT 
GOTO 
IFC 
CALL 
GOTO 


SCREEN(3-K) 
I 
SOUND«1EGG 

1 TO 27 


CREEN<(S-K) 


(N 


SOUNDCZAEG, 392,60; 
=1 TO 34 


SCREEN(3-K? 
I 
1296 


<63 THEN 1636 


SOUND -26, 440, 6) 
Sau 


IF C<>62 THEN 1156 


CALL 
CALL 
CALL 
CALL 
GOTO 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


SOUND -Sed, 524,8) 
HCHAR«A,B,63) 
HCHAR (CZ,5,D) 
HCHAR<L,M,D? 
ra 
386,349, 6 
386,446, 6 
3a6,529,6 
&06,392,6 
25,262,6 
25,262,6 
>a,262,6 
>66,116,56 
>06, 349,6 
>06 ,446,060 
>80,524,6 
604, 332,6 
25,262,6 

25, 262,6 
50,262,6 
>84,116,36 
340,332,6 
386, 343,6 
386,2934,06 
606, 262,0 
25,262,6 
25,262,06 

58, 262,6 
58,116,36 


0.350, 


‚ 230,0,39: 


en 
N. 
DB 
m 
TI 
T 
x” 
mn. 


1,392,2) 5 











Raumschiff Enterprise 
für den TI-99/4A 


Ziel wares, ein TI-Basic-Programm zuentwickeln, dasprofessionell aufgebaut, 
Schnelligkeit und anspruchsvolle Grafik miteinander verbindet. Dieses Programm ist 
jedem TI-99/44 Besitzer zugänglich, und zeigt andererseits vielen Kritikern, daß nicht 
unbedingt Extended Basic notwendig ist, wenn man nur die Möglichkeiten von TI- 
Basic erkennt und ausnutzt. - Das Spiel stützt sich auf die bekannte Serie 
"Raumschiff Enterprise”. 


Sie müssen feindliche Klingonen- 
schiffe vom Beschuß zweier unbewalff- 
neter Raumstationen abhalten. Für je- 
den Treffer erhalten Sie 100 Punkte. 
Wird aber eine der Raumstationen ge- 
troffen, werden Ihnen 100 Punkte abge- 
zogen. Gelegentlich tauchen zwei Klin- 
gonenschiffe unterhalb der 
Raumstationen auf. Sinken Sie in 
diesem Fall sofort (Fernbedienung ein- 


100- 360 Zeichendefinitionen 
370- 480 Farbverordnungen 


fach nach unten) und setzen Sie Ihre 
Laserkanonen ein. Wenn Sie wieder 
steigen, beginnt die nächste Runde, 
(Wenn Sie sich während eines Spiels 
ausruhen wollen, können Sie das an 
dieser Stelle tun. Erst wenn Sie gestie- 
gen sind, erscheinen neue Klingonen. 
Drücken Sie einfach die Alpha-Lock- 
Taste, und kein "Unbefugter” kann für 
Sie weiterspielen). 


490- 610 AS waagrecht oder senkrecht zeichnen. 


620- 680 Waagerechter Enterprise-Laser 


690- 760 Enterprise zeichnen 


Wenn Ihnen die Energie für Ihre 
Photonentorpedos und Laser ausge- 
gangen ist, bewertet der Computer Ihre 
Leistung. Übrigens: Keine Angst! In- 
zwischen können sich dıe Raumstatıo- 
nen, dank eines Umbaues, selbst verteı- 
digen. Falls dieses System einmal aus- 
fallen sollte, starten Sie einfach erneut 


das Programm und übernehmen Sie 
die Verteidung. 


770-1510 Titelbild zeichnen (Enterprise bewegen und Abfrage, Erläuterungen, Spielbeginn). 


1520-1750 Erläuterungen 
1760-1850 Schwierigkeitswahl 
1860-2130 Zeichendefinitionen 


2140-2430 Zeichnen (Sterne, Raumstationen) 


2440-2520 Farbzuordnungen 


2530-3310 eigentliches Spiel (Abfrage, Fernbedienung, Firetaste, senkrechter Laser) 


3320-3570 Klingonen (neues Schiff erscheinen lassen oder:) 


3580-3920 Klingonen-Laser 
3930-3980 Klingonenschiff zeichnen 


3990-4750 Kingonenschiff unter Raumstationen 


4760-4880 Enterprise-Fanfare 
4890-5120 Ende 


Die Variablen Z,Z1,22,23,Z0 werden 
in FOR.NEXT-Schleifen und ähn- 
lichen, universellen Anwendungen be- 
nutzt Die Variablen-Spalte, Zeile, 
Länge erklären sich selbst. Auf REM- 


Zeilen und der Möglichkeit, das Pro- 
gramm wieder von vorne zu starten 
(alle Variablen müssen = 0 gesetzt wer- 
den), wurde aus SDELDerP An den 
zugunsten vieler Details verzichtet. 


(Versuchen Sie ruhig einmal, auf die 
Raumstationen zu schießen, oder 
schießen, wenn kein Klingonenschiff 
da ist,der Computer ignoriert dies nicht 
(wie üblich)! 











| REM === RAUMSCHIFF == === ENTERPRISE === ==TEYIAS T1-99/4A 
-- =19BI===PATRICK SCHMITZ= >48 REM. -UNKELBACH 
CALL CLEAR 
120 CAL SCREEN (2 
150 CALL CHAR (64, "384492A2A2924438") 
l CALL CHAR (95,"") 
150 CALL CHAR (39,"FF") 


| 160 CALL CHAR (33, 00202070702") 
170 DATA ÜOFFFFFFOEOEOEOE , VEOEOEOEOEOEOEOE,, OEOEOEOEOEOEOEOE , O0OETETE707070707,070 
7070707070707 .0707070707070707 


180 DATA 0001070707070707,0707017070000000, 0000000000070707 ,O0FOFCFCILICICIE, FÜF 
CFCICICICICIC, 1C1C1 CICICFOFCFE 

190 DATA 003EFFFFE3 ESES ES, FFFFIFOS03030303, 0O303030303FFFFFF „0000808080808181,818 
585838685858C, 8D8D999898B0OBORO 

200 DATA OO6F6FCFDEDBFBB3, B333636363C3C3C3, FFFFFFO303030303, 0081818183838383, 878 
787B7BEBEBEBE , DFDFDFYFBBRBBBREB 

210 DATA OOFBFBFBFC9IC9ILCIHC , OEOEOEOE07070707 , FFFFFFFF01010101 ,0000000000000000 , 000 
0000000000000, B0808080C0LC0C0C0 
220 FOR 1=128 TO 157 

230 READ Z$ 

240 CALL CHAR(Z,Z$) 

250 NEXT Z 

260 BS(1)="FF7F" 

270 B$(2)="FCFE402010080402" 
280 B$ (3)="00017FFF7F214080" 
290 B$ (4) ="00BOFEFFFEB" 

300 B$ (5)="070F" 

310 B$(6)="EOF" 

320 FOR Z1=95 TO 119 STEP 8 
330 FOR Z=1 TD & 

340 CALL CHAR (Z1+Z,B$(7)) | 
350 NEXT Z 

360 NEXT 21 

370 CALL COLOR(1,12,2) 

380 CALL COLOR(2,16,5) 

390 FOR 2=3 TO B 

400 CALL COLOR(Z,16,7) 

410 NEXT Z 

420 FOR Z=9 TO 12 

430 CALL CDLOR(Z,2,2) 

440 NEXT Z 

450 FOR Z=13 TD 16 

460 CALL COLOR(Z,9,2) 

470 NEXT Z 

480 GOTO 770 

490 ZEILE=VAL (SEG$ (A$, 2,2) ) 

500 SPALTE=VAL (SEG$ (A$,4,2)) 

510 IF SEGS(A®,1,1)="H" THEN 570 

520 FOR Z=6 TO LEN(AS) 

530 CALL HCHAR(ZEILE,SPALTE,ASC(SEG$ (A$,7,2))) 
540 ZEILE=ZEILE+1 

S50 NEXT Z 

560 RETURN 

570 FOR Z=6 TD LEN(AS$) 

580 CALL HCHAR(ZEILE, SPALTE,ASC(SEGS$ (AS, 7,1))) 
590 SPALTE=SPALTE+1 

600 NEXT Z 

510 RETURN f 

620 LAENGE=19 

630 CALL HCHAR(ZEILE,9,39,LAENGE) 

640 FOR 2=0 TO 7 

650 CALL SDUND(-100, 1000, 2,990,27,1010,2) 

660 NEXT Z 

670 CALL HCHAR(ZEILE,9,32,LAENGE) 

680 RETURN 

690 FOR Z=SPALTE TO SPALTE+3 

700 CALL HCHAR (ZEILE, Z, ZEICHEN+ZO) 
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6.8 ENTERPRISE — 














7/10 20=70+1 

720 NEXT Z 
730 CALL HCHAR (ZEILE+1, SPALTE+1, ZEICHEN+4) 
740 CALL HEHAR (ZEILE+1,SPALTE+2, ZEICHEN+5) 
750 ZO=0 

7560 RETURN 
7//9 FOR Z=1 TO 7 
/80 CALL HCHAR(Z,3,42,28) 
7/90 NEXT 72 
800 FOR Z=22 TD 24 
810 CALL HCHAR(7,5,42.28) 
820 NEXT Z 
950 FOR Z=3 TO 28 STEP 25 
840 FOR Zi=7Z TOD 7+2 

SO CALL VCHAR(1,21,42,24) 
8650 NEXT 21 
870 NEXT Z 
880 FOR Z=12 TO 21 
870 FOR Zi=3 TO 5 
700 CALL HCHAR(Z1,72,89+71+7%#3) 
10 NEXT 71 

20 NEXT 7 
750 CALL HCHAR(4,4,95,8) 

740 As="V0404_TEXAS_INSTRUMENTS_" 
750 GOSUR 490 

760 CALL HCHAR(4,22,95,7) 

9709 As$="V0429_TEXAS_INSTRUMENTS_" 
980 GOSUB 490 

990 As="H2504__6_1983_PATRICK_SCHMITZ__" 
1000 GOSUB 490 

1010 As="H0905_RAUMSCHIFF _” 

1020 GDSUB 490 

1050 As="H101&_ENTERPRISE_" 

1040 GOSUB 490 

1050 FOR ZEICHEN=9& TO 120 STEP 8 

1050 ZEILE=i2 

1070 SPALTE=ZEICHEN/2-42 

1080 GOSURB 590 

1090 NEXT ZEICHEN 

1100 As="H1510 I>ERLAEUTERUNGEN" 

1110 GOSUB 490 

1120 As="H1710 2>SPIELBEGINN___" 

1150 GOSUB 490 

1140 CALL COLOR (9,16, 2) 

1150 GOSUB 4760 

1150 CALL SDUND (100, 40000, 30) 

1170 GOSUB 4810 

1180 FOR Z=10 TO 12 

1190 CALL COLOR(Z-1,2,2) 

1200 CALL COLOR(Z,16,2) 
1210 GDSURB 1290 
1220 NEXT Z 
1250 FOR Z=11 TO 9 STEP -1 
1240 CALL COLOR (Z+1,2,2) 
1250 CALL COLOR (Z,18,2) 
1250 GOSURB 1290 
1270 NEXT Z 
1280 IF Z2=10 THEN 15380 ELSE 1180 
1290 IF 22=10 THEN 1550 
1500 CALL KEY(0,KEY,STATUS) 
1S10 IF (KEY=49) +(KEY=S0)=-1 THEN 1320 ELSE 1350 
1320 72=10 
1SS0 CALL SOUND (-50,330,4,220,4) 
1340 CALL SOUND(-50,330,4,440,4) 
1SS0 RETURN 
1550 FOR ZEICHEN=104 TO 112 STEF 8 
1370 SPALTE=& 

















1580 ZEILE=ZEICHEN/4-1?2 

15970 GOSUR 690 

1400 NEXT ZEICHEN 

1410 CALL HCHAR (12,10,32, 15) 

1420 CALL HCHAR (13,10,532,15) 

1450 CALL COLOR (9,2,2) 

1440 CALL COLOR (10,16, 2) 

1450 ZEILE=15 

1460 GOSUE 4520 

1470 CALL COLOR (10,2,2 

1480 CALL COLOR (11,16,2) 

1490 ZEILE=17 

1500 GOSUB 520 

1510 IF KEY=50 THEN 1760 

1520 CALL CLEAR 

15350 FOR Z=2 70 8 

1540 CALL COLOR (Z,16,2 

1550 NEXT Z 

1560 PRINT "DER WELTRAUM -": :" UNENDLICHE WEITEN.": :"WIR SCHREIBEN DAS JAHR 22 

00.": :"DIES SIND DIE ABENTEUER DES" 

1570 PRINT : "RAUMSCHIFFS ENTERPRISE „": ="DAS MIT SIENER 400 MANN": :"STARKEN B 

ESATZUNG 5 JAHRE": ; 

1580 PRINT "LANG UNTERWEGS IST, UM"; : "NEUE WELTEN ZU ERFORSCHEN, ": » "NEUES LEBE 

N UND": : "NEUE ZIVILISATION. ": TAB (26) 5 ">>" 

15970 GOSUB 4750 

1500 GOSUB 1720 

1510 PRINT "VIELE LICHTJAHRE VON DER": : "ERDE ENTFERNT DRINGT DIE": : "ENTERPRISE 
IN GALAXIEN VOR," 2 2 

16820 PRINT "DIE NIE EIN MENSCH ZUVOR": :» "GESEHEN HAT. "s 3 3 =TAB(24), ">>" 

16830 GOSUB 4810 

1640 GOSUB 1720 

1650 PRINT "##SPIELREGELN#x": :"FEINDLICHE KLINGONSCHIFFE VERSUCHEN ZWEI FRIED 


LICHE FORSCHUNGS-RAUMSTATIONEN DER FOEDERATION DER VEREINIGTENPLANETEN ZU ZER 
STOEREN. " 

1660 PRINT "IHR AUFTRAG IST ES, DIES MITDER ENTERPRISE ZU VERHIN- DERN. WENN S 
IE IHRE PHOTONENTORPEDOS NICHT RECHTZEITIG EINSETZEN, BEGINNEN DIE " 

1670 PRINT "KLINGONEN DEN BESCHUSS DER RAUMSTATIONEN. GELEGENTLICH ERSCHEINEN 7 
WEI KLINGON-": "SCHIFFE UNTERHALB DER RAUM- STATIONEN. SINKEN SIE IN" 

1680 PRINT "DIESEM FALL SOFORT UND ZER- STOEREN SIE DIE KLINGON-": "SCHIFFE MIT E 
INEM LASER-":"STRAHL. NACHDEM SIE WIEDER GESTIEGEN SIND, BEGINNT DIE" 

1690 PRINT "NAECHSTE RUNDE. "; TAR(27)5 ">>" 

1700 GOSUB 1720 

1710 G0TO 1810 

1720 CALL KEY(0,KEY,STATUS) 

1730 IF STATUS=0 THEN 1720 

1740 CALL CLEAR 

1750 RETURN 

1760 A$="H1710 VIEL_ERFOLG" 

1770 GDSUB 490 

1780 FOR Z=1 TO 150 

1790 NEXT Z 

1800 GOSUB 620 


1810 CALL CLEAR 
1820 PRINT " SCHWIERIGKEITSGRAD:": : :TAB(B);"1> EINFACH": :TAB(8);5"2> E S 


CHWER": :TAB(B)5"3> SUPERSCHWER": ı ı ı 3 2 3 
1830 CALL KEY(0,LE,STATUS) 

1840 IF (LE=49)+(LE=50)+(LE=S51)=0 THEN 1830 
1850 CALL SOUND (100,220,0,247,0,262,0) 

1860 CALL CLEAR 

1870 FOR Z1=127 TO 135 STEP 8 

1880 FOR Z=1 TO & 

1890 CALL CHAR(Zi+Z,B$(2)) 

1700 NEXT Z 

1910 NEXT Z1 

1930 DATA 00707070180C0605, 000000183C7EFFED, 000E0EOE13060C, 0304001830303, 3C3C18 
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ı 1 READ- N 
1950 CALL CHAR (Z+87,B$(2)) 
172% NEST z 

ESTOR IE a 





® 000 9001, ee re 

sun DATA FIFSFICCDSESESTE, 37F ,008C 60: 

2019 FOR 'Z=14ä70 159° DR wies ann 

READ 2 

2 NEXT Z 

2050 CALL CHAR (SB, ' "FFEFFFESFIFFFFFF") 

2060 CALL CHAR (59, "FFFFEFFIFFFFFFFF") 

2070 CALL CHAR (60, FEBRBEZESSEREREN, 
2080 CALL CHAR (61, "FFFFI F") 

2090 CALL CHAR (84, "") 

2100 CALL CHAR (94, "04104004209401") 

2110 CALL CHAR(95, "A8412448B22C485C") 

2120 CALL CHAR (62, "DD77DSBDADF7BF7&") 

2130 CALL- CHAR (38, "1818181818181818") 

2140 FOR Z=2 TO 165 

2150 CALL 22 2) 

2160 NEXT Z 

2170 RANDDMIZE 

2180 FOR Z=1 TO S#+RND+50 

2190 CALL HCHAR(INT( JSaEnD) +4, INT (25*KND) +5, INT (4«RND) +58) 
2200 NEXT Z 

2210 CALL VCHAR (1,3,42,24) 
2220 CALL VCHAR(1,30,42,24) 

2230 CALL HCHAR(1,3,42,28) 

2240 CALL HCHAR (3,3, 42,28) 

2250 FOR Z=21 TOD 24 

2260 CALL HCHAR(Z,3,42,28) 
























2280 As=' "H0203**RAUMSCHIFFSSENTERFRISER x 
2300 A$="H2206RUNDE***PLNK TE***LASER" 


2330 FOR ZE ar TO 154 STEP 8 
2340 SPALTE=ZEICHEN/2-44 

2350 GOSUB 590 

2370 FOR Z2=12 TO 18 STEP 4 

2380 FOR Zi=1 TO 4 

2390 FOR Z=1 TO 4 

2400 CALL HCHAR (9+272/4+71, 22+2, 139+Z+71*4) 
2410 NEXT Z 

2420 NEXT Z1 

2430 NEXT 72 

2440 CALL COLOR 25 16, 5) 

2450 CALL COLOR(3,2,15) 

2460 CALL COLOR(4,2,15) 

2470 FOR Z=5 TO 7 

2480 CALL COLOR (Z,16,7) 

2490 NEXT Z 

2500 CALL COLOR(8,4,2) 

2510 CALL COLOR(15,8,2) 

2520 CALL COLOR (16,8,2) 

2530 RUNDE={ 

2540 A$="H2I0B1#Hx#%0008#n#0450". 
2550 GOSUB 490 

2560 LASER=50 

2570 EPOS=9 

2580 CALL COLOR (9,18,2) 

2590 Z0=0 





















ZEN er, 
2e10 IF BES IDEN 670 


ae an 2760 
2750 opt HCHAR (25, 26, 42) 
2760 IF LASER=0 THEN 4890 





2870 IF EPOS#*4-30<>KPOS1 (Z)THEN 2950 
2880 SPALTE=KPOSI (Z)+1 

2890 IF (SPALTE=1S)+(SPALTE=19)=-1 THEN 2920 
2900 LAENGE=8B 

in G0OTD 2930 


2920 LAENGE=5 

2930 KPOS1 (Z)=0 

2940 GOTO 3050 

2970 GOTO 2870 

2980 SPALTE=EPOS*4-29 

2990 IF (SPALTE=15)+(SPALTE=19)<>-1 THEN 3030 
3000 LAENGE=8 

3010 Z3=9 

3020 G0TO 3050 

3030 LAENGE=15 

3040 Z3=10 

S0S0 CALL VCHAR(6,SPALTE, 33, LAENGE) 

5060 FOR Z1=0 TO B STEP 2.5 

3070 CALL SOUND (-100, 1000, 21,990, 21,1010, 21) 
S080 NEXT Zi 

3090 CALL VCHAR (6, SPALTE, S: „LAENGE) 

3100 IF Z3=10 THEN 3300 

3110 IF 23<>9 EN 5170 
3120 CALL HCHAR (LAENGE+SPAL TE/2.6,SPALTE, 62) 
Ss130 CALL ST 0, 120,0,130,0) 
5140 CALL SOUND (-300, 7,0) 
3150 CALL HEHAR (LAENGE+SPALTE/2.6, SPALTE, 150) 
3160 GOTD Ss860 
3180 CALL ch -5,0) 
3190 CALL VCHAR (LAENGE+6, SPALTE, 32,2) 
3200 FOR Z20=94 TO 32 STEP -62 
3210 FOR Z1=SPALTE-1 TO SPALTE+i STEP 2 
3220 CALL VCHAR (LAENGE+6, 21,20,2) 
3230 CALL SOUND (-200, (SPALTE-Z1=1)-6,0) 
3240 NEXT Zi 
3250 NEXT Z0 
3250 IF UNTEN<>O THEN 4340 




























































5270 PUNKTE=PUNKTE+100 
S280 A$="H2S1F"LSTRE (PUNKTE) 
5290 GOSUB 490 


5300 73=0 
S310 GOTO 2600 
53520 IF KPOSi(1)<£>0 THEN 3580 


3330 IF KPOS1(2)<>0 THEN 3400 
3340 FOR Z=1 TO ZAHL 

3350 IF KFOS(Z)=0 THEN 3460 

SS60 IF (KPOS(Z)=14)+(KPOS(Z)=18)=-1 THEN 3370 ELSE 3390 
3370 Z0=11 

3380 GDTD 3400 

3390 Z0=14 

3400 CALL HEHAR(9,KPOS(2),32,3) 

5410 CALL HEHAR(10,KPOS(Z),32,3) 

3420 GOSUR 3930 

3430 KPOS1 (Z)=KPüs(z) 

3440 KPOS(Z)=0 

3450 20=100 

3460 NEXT Z 

3470 IF Z0=100 THEN 2590 

3480 IF RN>4 THEN 3990 

3490 RN=RN+1 

3500 ZAHL=INT (2*RND+1) 

3510 FOR Z=1 TO ZAHL 

3520 KPOS(Z)=INT (A*#RND+1) #4+2 

3530 IF KPOS(1)=KPOS(2)THEN 3520 

3540 20=9 

3550 GOSUB 3930 

3560 NEXT Z 

3570 GOTO 2400 

3580 Z=1 

3590 GOTO 3610 

3600 Z=2 

3610 CALL COLOR(1,10,2) 

3620 ON KPOS1 12) /4-.5 GOTO 3630, 3650, 3670, 3670, 3750,3770 
3630 LASER$="160903204156 13" 

3640 GOTO 3780 

3650 LASER$="15131520115314" 

3660 GOTO 37890 

3670 CALL VCHAR (13,134 (KPOSI (Z)/4-3)%4,38,2) 

3680 CALL SOUND (-50,-3,0) 

3690 CALL SOUND (-50,-3,5) 

3700 CALL VCHAR (13, 13+(KPOS1 (Z)/4-3)*4,32,2) 

5710 CALL HCHAR(10+KPOS1 (Z)/4, 13+(KPOS1(Z)/4-3)*4,62) 
3720 CALL SOUND (-500, 110,30, 110,30,5000,30,-8,0) 

3730 CALL HCHAR(10+KPDS1 (Z)/4, 13+(KPOS1(Z)/4-3)*4, 150) 
3740 GDTO 3850 

3750 LASER$="16210320115520" 

3760 GOTO 3780 

3770 LASER$="16200320615520" 

3780 CALL HCHAR (VAL (SEG$ (LASER$, 1,2)) ‚VAL(SEG$ (LASER$,3,2)) ‚39, VAL (SEG$ (LASER$, 8 
‚2))) 

3790. CALL SOUND (-50,-3,0) 

3800 CALL SOUND(-50,-3,5) 

5810 CALL HCHAR (VAL (SEG$ (LASER$, 1,2) ) ,VAL(SEGS(LASER$,3,2)) ‚VAL(SEG$ (LASER$,5,3) 
) VAL (SEG$ (LASER$,B,2))) 

3820 CALL HCHAR (VAL (SEG$ (LASER$,1,2)),VAL(SEG$ (LASER$,13,2)) ,62) 

3830 CALL SOUND (-500, 110,30, 110,30,5000,30,-8,0) 

5840 CALL HCHAR (VAL (SEG$ (LASER$, 1,2) ) VAL (SEG$ (LASER$, 13,2)) ‚VAL(SEG$ (LASERS, 10, 


3))) 
3850 CALL COLOR(1,12,2) 

' 3860 PUNKTE=PUNKTE-200 

3870 IF PUNKTE<O THEN 3890 

3880 IF PUNKTE>1000 THEN 3910 ELSE 3900 
3890 PUNKTE=O 

3900 CALL HCHAR (23, 18,42) 

















Ssyıc 
592 
SISC 
3940 
Ss9S50 
39% 
3970 
59780 
5990 
4000 
4010 
4020 
4030 
4040 
A050 
4050 
4070 
40830 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4180 
4170 
4180 
4190 
4200 
4210 
4220 
4250 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
45310 
45320 
4330 


4540 








GOTO 328C 
GOTO 2600 
FOR Z1=720 TO 
FOR Z2=KPOS(Z)TO KPOS(Z)+2 

CALL HCHAR (71, 22,88+(21-20) #3+Z2-KPOS(Z)) 


vu 


20+1 


A ı 


NEXT Z2 

NEXT 2] 

RETURN 

RN=O 

FOR 21=15 TO 18 STEP 3 

FOR Z2=19 TO 20 

FOR Z35=Z1 TOD Zi+2 

CALL HCHAR (272,23, 531+3#72+723-71) 
NEXT ZS 

NEXT Z2 

NEXT Z] 

CALL JOYST(1,X,Y) 

IF (X=0)+(Y=-4)=-2 THEN 4090 ELSE 4160 
CALL HCHAR (5,EPOS#4-32, 532,4) 


CALL HCHAR (6, EPOS*4-32,32,4) 


70=0 
ZEICHEN=EPOS#8+24 
ZEILE=19 
SPALTE=& 
GOSUB 690 
CALL KEY(1,KEY,STATUS) u 
IF (KEY=18)+1Z0=0)<>-2 THEN 4380 4550 
LASER=LASER-1 4560 
IF LASER<>9 THEN 4210 4570 
CALL HCHAR (23,26, 42) 4580 
A$="H2325"LSTR$ (LASER) 4590 
GOSUB 490 4400 
IF LASER=0 THEN 4890 4410 
ZEILE=20 4420 
LAENGE=12 3450 
IF Z00<>1 THEN 4280 4440 
LAENGE=21 4450 
GOSUB 630 3460 
IF Z00=1 THEN 4620 4470 
UNTEN=100 4480 
LAENGE=13 ie 
SPALTE=1& N 
GOTO 3170 DEEP 
IF UNTEN=50 THEN 4580 4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 





UNTEN=S0 
SPALTE=1? 


GOTO 3170 
IF Z00=1 THEN 4520 

IF RND<.S THEN 4070 

PUNKTE=PUNKTE-200 

IF PUNKTE<O THEN 4430 

IF PUNKTE>1000 THEN 4450 ELSE 4440 

PUNKTE=O 

CALL HCHAR(23,18,42) 

A$="H2315"STR$ (PUNKTE) 

GOSUB 490 

CALL COLOR(1,10,2) 

CALL VCHAR(17,19,38,2) 

FOR Zi=0 TO 6 STEP 2 

CALL SOUND (-100,110,21) 

NEXT Z1 

CALL VCHAR(17,19,32,2) 

CALL HCHAR(17,19,62) 

CALL SOUND (-500,110,30,110,30,5500, 30, -8,0) 
CALL HCHAR (17,19, 158) 

CALL COLOR(1,12,2) 

GOTO 4070 

UNTEN=O 

RUNDE=RUNDE+1 

A$="H2308"LSTR$ (RUNDE) 

GOSUB 490 

700=1 

10=0 

CALL JOYST(1,X,Y) 

IF (X=0)+(Y=4)=-2 THEN 4660 ELSE 4160 

CALL HCHAR (19,6,32,4) 

CALL HCHAR (20,6,32,4) 

10=0 

2EILE=S 
SPALTE=EPOS#4-32 
ZEICHEN=EPOS#8+24 
GOSUB 690 

IF LASER=0 THEN 4900 
100=0 

GOTO 2600 











# & Er 
Men | 
urn ; ” w 
> Zu” 17 
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ET AR 
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Antares "= 


81 


Antares - ein Weltraumspiel in gutem Basic und ebenso guter Grafik. Das Programm 


unterteilt sich wie folgt: 




















I) Das von Ihnen gesteuerte Raum- | zubauen und zum Raumschiff zu Kr we eine Felsschlucht ge- 
schiff muß auf einem vorgegebenen | bringen. steuert w F 
PlatzsicherzurLandunggebrachtwer- | Sind diese drei Aufgaben erfüllt, Um Ihnen nicht gleich die ganze Span 
den. kommt der schwierigste Teil des nung beim ar es wege 
2?) Danach müssen Arbeiter und | Unternehmens: Bevor Sie auf dem | zu nehmen. wollen wiır jetzt lieber 
vorhandene Hilfsmittel in das | Planeten Antares landen nichts mehr verraten. 
Raumschiff geladen werden, um und Ihren Auftrag als beendet betrach- | Viel Spaß! 
3) im Weltraum Krypton zu finden, ab- | ten können, muß das Raumschiffunbe- 
NT AT L1-1,L2; E. 
ı GosuB seo 1218 PRınT ar Lır1.L2 a 
3 SLOW 1217 IF _1=15 AND L2>=12 AND L2< 
4 CLS =14 THEN GOTO 1508 = 
5 LET Het de Re t 1218 IF L1=15 AND (L2<>12) AND ( 
= (= t- t=- = <= RNTARES <- <- L2<>13) AND (L2<>14) THEN GATO 1 
= - (- ia 3 N <- BY HOLGER HU 788 
BER <- <- - <- ZUM SPIELS 1219 PRINT AT L1,L2; BEER. 
Ta NEULINE DRUECKEN = xi- i- < 1229 LET L2=L2+ (INKEY$=' ) - (INK 
- (= <(- Ka ug —" tg" 
“"& ler's 1232 P PR RINT AT 18,11; "WM"; TAB 18; " 
R 8,0;6G%# 1225 LET Li=L1+(RND<.S)I -(RND>.7?) 
15 PRINT AT_12,8;6$ 1227 PRINT AT L1-1,L2;' 
e8 FOR S=1 TO LEN H$-351 1229 PRINT AT L1+1,L2; R 
25 PRINT AT 18,8; H$(S TO 5+351) 1238 IF L1=18 AND ER - AND L2< 
38 IF INKEYS<>"" THEN GOTO 45 12350BiF L1=-15 AND L2>=12 AND L2< 
35 NEXT S =14 THEN GOTO 15988 
48 GOTO 20 1548 IF L1=18 AND (L2<>12) AND ( 
CLS mn Be L2<313) AND tL2<>14) THEN GOTO i 
5 RINT AT 2, 2, "BEI DIESEM SP 788 
IEL GEHT ES DARUM" , IM AUFTRA 1258 LET M=M-2 
G BER 2B,3.7.9% 555 {=UNITED STAR 1288 IF L1i1=1 THEN LET Li1=2 
SS. TRARBEIT 55” AUF EINEM BESTIMM 1298 IF L2=1 THEN LET L2=2 
LEN sun PLANETEN MOEGLICHST VI 1388 IF L2=27 THEN LET L2=26 
RR F: KRYPTON ABZUBRUEN.' 1318 GOTO 1288 
DIE ABBARUMENGE ERRECHNET sIien" 15808 REM +++ LEITSTRAHL Er 
3.30 RAUS VERSCHIEDENEN FAKTOREN 1585 PRINT RT 15 , 12; : 
Aa? 17 en WIE Z.B5. KRYPTONVORKOMME 19,125» AT 21, 12; ° u 
N," " "ROBOTERANZAHL ETC. ar 21,12; " 
s5 "Er INKEYS="" THEN GOTO 55 ı518 FOR 5 TO so 
>S „ÜRINT AT ıSs, 24: "WE"; AT 19,1 
65 PRINT AT 4,2; "DOCH ZUERST M = = . a 
UVESSEN",,,‚," SIE EINMAL AUF DEM“ 1568 NEXT _S 
an LANDEFELD VON GAMMA-CITY” , 1565 PRINT AT 19,14; ' 
>19 Yes LANDEN, UM MASCHINEN , ROBOTER 1578 FOR S-® TO 38 
#,,,"  INGENIEURE UND PROVIANT 1588 PRINT AT 20,14; "WM"; AT 208,1 
2 Prben ‚KAUFEN. ABER DIES WIRD N 4," 
ICHt*,,,"__EINFACH WERDEN,DA IHR 1600MNEXT s 
nz ss STEUERUNG DEFEKT 2, 1612 FAST 
78 IF INKEY$="" THEN G0TO 78 1528 CLS 
1658 PRINT AT 3,5; "BRAUVUO,"“ AT 5, 
88 PRINT AT 4,2; "STEUERN SIE S; "SIE HABEN ES : 
HR RRUNSCHIFE", . MIT DEN Tast te ee 
EN:”,, U t=LINKSI"," O (=REC 1628 SLou 
HTS) ' 2 S (=UNTEN) “5 L (=0B 1645 IF INKEY$='"" THEN GOTO 1645 
EN) ";AT’ 18,6; "VIEL GLUECK...“ 1658 GOTO 2888 
585 a KEY$="" THEN GOTO 55 -- u Ken 
= (RND #288) +208088 
ar =### LANDUNG ### Bun PRZET 07 4,2; "SIE SIND IN E 
R", " GEFLOGEN; DAS 
LET L1=3 . er Se 
DET L3nD. KOSTET SIE ",,, > 88 
FAST 1715 LET M=M-y 









s 
1120 SLOW 2819 NEXT 






eh 15 BH ran 
NKEY$="" 
ER FR 1738 CET NEEYS» THEN GOTO 1720 
: #** EINKAUF ## 
TO e 2005 CLS , 
INT (RND#186) ,INT { 2818 DIM Ka) 


1285 PRINT AT Li 2 Bas2 GDEun ve Re 
207 PRINT AT 18,11; AB 18; " CHINEN WOLLEN SIE” MIETEN ? (ei 
S1® LET Li=L1+(INKEY$="S") - (INK 2050 INPUT I _ 
... # ” 14 MEN 
EL}3 Let L2=L2+ IRND<.3) - (RND>.7) 2070 LET K BET, BERN 























LET M=M-Ix100 

SOSUE 7878 

TEURE \OLLE 19,2; "WIEVIELE ING 
N SIE MITN 5 ? 

® PRO ING.) Pe 

INPUT I 

IF Iz288>M THEN 

nn. tere sSOTO 28955 


UVNN-Mfünum 


NSNBNGMRELTTMD 


PEPRHBRNZORON 
BESOUODWHO.S-) 


"WIEVIELE Rob 
MITNEHMEN ? 


Ofinyfur 


PrFrPPrI Hi 
P-OUMNDrP 


S 

@ IF I1x158,M THEN 

5 LET KI3izz ie 

®@ LET M=M-Ixr15o 

> GOSUB 7870 

@ PRINT AT 19,2 
-ART WREHLEN 

21500, 0 Sn 

5 INPUT I 

sS@® IF (I=1 AND M<2898) OR (I=2 
AND M<15808) OR (I=3 AND M<1088) 
THEN GOTO 2145 

2155 LET K(4)=T 

2157 IF I=® THEN LET K 

2168 IF I=1 THEN LET M 

2165 IF I=2 THEN LET M 

- ET 


ZPP 
Ds 


; "WELCHE PROUVI 
SIE ?(1.=288 


BDWODIWMWnmKINnMm- 


Pr 


O 
2180 IF_INKEY$="" THEN GOTO 21880 
2198 PRINT AT 4,2; "NUN MUESSEN U 
TR ZUM GR HAUPTG@UART IER DER U 
Sereiiti:" „UM EINEN PLANETEN Z 
UGETEILT",,," ZU BEKOMMEN. 

2289 IF INKEYE="" THEN GOTO 2280 


2508 REM ##+ PLANETEN-ZUTEILUNG 

x 

2518 PRINT AT 4,2; "DIE VERTEILUN 
5 IST SCHON IM“ FR VOLLEN GANG 
E;DER VORSITZENDE",,,"“ DER U.S. 


T._ NENNT NUN DIE", ,." PLANETEN 
DES B-TYPS",,," tALSO KRYPTON pP 
s538 IF INKEYS= TH 

zen EN GOTO 2520 
2525 CLs 


2558 IF U=1 THEN PRINT AT 4,2; "M 
AN SIEHT DAVON AB,DASS SIE" Be 
BEI DER LANDUNG DIE HALBE" ,, zn 
Ber 2 ESHOPGERT HABEN,“,,,„"“ E->: 


I 
2sssBir_ U=1" AND INKEY$="" THEN G 


2548 CLS 

2545 PRINT AT 4,2; "SIE_HABEN DEN 

PLANTEN"“ ‚B$; " ERHALTEN. 
IER SIND EINIGE", ,," INF 


H 
ÖRMATIONEN: 


2558 IF INKEY$="" THEN GOTO 2558 
2555 CLS 
2568 PRINT AT 2,8; "PLANET 


.:B 4 ‚8; "DURCHMESSER: 
Bucı= kn“ ug „2, \KRYPTONVORKO 
: $;p; AT’ 
ey G";AT’18,8; "LANDSCHAFT: 


2565 PRINT 


2578 PRINT in 





SEI TE TRREV/S="" THEN GOTo 2575 


age CLS 
N SETZEN WI 
R“ zu TRANSITION”, ,.” CH ";B$ 


ESSEN AT AT 17,8; "COUNT-DOUN. 
FOR 5=18 T9 e STEP -1 






PRINT AT 2e3,3)" e 
FOR N= 
NEXT 
FA 
oe TO 21 
PRINT AT 5,8;6$ 
LOR S=1 TO 188 


Ss 
PRUSE 28 
pi EUER. ® 





SLou > 





F bu) 
2,07’ zu ZZ 






3200 RE +++ VEBERRAS(CTr ) 33 

38085 

32108 SBRRINT AT 4,2, 'WIR BEFINDEHH 

UNS NUR NOCH’, ,,” WEMIGE LICHT® 

TUNDEN VON ",,," "88; ' ENTFER! 

8 ” 

2038 IF INKEYS=' THEN GOTO 2823 

29350 M #xxz SCHLUCHT ##%# 

32868 DIM UV(3) 

38655 LET UVi1)=2 

3072 LET V<(2) =15 

>25 Se D3) =13 

32 

3858 PRINT AT 4,2; "DIE LANDUNG MH 

ABEN SIE",,," GESCHAFFT ,DOCH NÜ 

N MUESSEN”" , ,," SIE DURCH 3 FELS 

SEHEUSBHTEN ; " -s , z" DIE VON MAL ZU 
Fu | 


” WERDEN.STOSSEN 


MAL ENGER“, 
£ WAND AN,DANN K 
SIE AN EINE „WRND AB DEE 


} 3 
Das”, 
3838 IF Inkeysz"t THEN GOTO 3992 
31@BHPRINT AT 5,2; "MANDEURIEREN. 


SIE IHR" R RAUMSCHIFF MIT DEN 


TASTEN”, 7," - "yet UND 7 
“"(--y)"jAT 21,11; "PRESS N/L To 


5185 BE rn THEN GOTO 31985 


9118 
s128@ FOR 5=8 TO 21 


315@ FRINT AT 5,0; ' UckcieimucEREET 


NEXT 5 
S135 SLOW 


3137 PRINT AT 2,8; 
40 IF Vi1)=8 THEN LET 0$- 


45 LET V(2)=V (3) +2 
IF vt1)=1 THEN LET 9$-" en 


SE IF Vil)=2 THEN LET Os 














P PH 
u 
[2 


ehe m 


% 


3178 FOR 5=@ TO 21 

3188 PRINT TRB V(3);098$ 

S19OMLET VS) =V(3) +03) <28B AND 

VIi3)) SGN (RND-.S) +INOT VL3)I) - (U 

(3) =28) 

3288 NEXT 5 

3218 LET Vi3)=UVct2) 

3228 FOR 5=1 TO 21 

3238 PRINT AT S ,UV(2); 

3248 IF PEEK (PEEK 16398+256=sPEE 

K_16399) =CODE '"#" THEN GOTO 3328 

Sase PRINT AT S-1,V(3); "W";AT S, 
J 

32608 LET Vi3) =Vi2) 

s278 LET V(2) =UV (2) +tINKEYS="0") — 

(INKEY$="W") 

3288 NEXT S 

3285 LET U(3) =15S 

3298 CLS 

33808 LET Vi1)=VL 

33805 IF V(1)=3 THEN GOTO 4888 

3318 GOTO 31182 

33208 CLS 

3325 _ LET UV(3) =15 

SSSCPRINT AT 4,5; "BITTE 258 Sol 

3348 LET M=M-250 


5343 LET TOD=TOD+1 
3944 IF ee THEN GOSUB 98808 
3345 ie EYS="'" THEN GOTO 3345 


3355 GOTO 3118 
43888 REM ### ABBAU ##+ 
40818 PRINT AT 4,2; "SO,NUN KOENNE 
N WIR ENDLICH MIT", ,"" DEM KRYPT 
ON ABBAU BEGINNEN. "4" DAZU HA 
BEN WIR 18 WOCHEN" ,,,“ ZEIT.NIT 
DER NUN F FOLGENDEN"), ," "TABELLE 
„KOENNE EN SIE DEN as 78 VER 
4838 IF INKEYS="" THEN GOTO 4030 
4035 eLs_ 


4893 
4040 PRINT AT 9,0 ———— 


AOSOMPRINT RAT 8,31; 
4855 NEXT 5 . 


4878 PRINT AT ae EEE 
» ar 9,1; "INGENIEUR 
e"!at ı 2,1: "KRYPTON F.";AT 14,1. 








"BRO WOCHE";AT 16,1; "INSG.” 

41008 FOR 5=1 TO 18 

41085 FAST 

411@ PRINT AT 1,2;5; er 

5,175,” IR Bar aan Kı 

EM Wehe ;AT 2,17; 23; 
a1iswLET B=SINT RIDEKDTaKTaN 
/K (4)) +12 

4128 LET T=(D+E+ (53x) ) af@HınT cc 
zi®BaB8) 

4125 LET Y=INT (T/{RND+1)) 

4127 IF Kt(1)=B8 AND Ki3)=B8 THEN L 
ET Y=B 

4138 LET F=Y»2 KR za a 5 

4140 LET FG6=FG+F 

4158 PRINT _AT 14, 175 Fr 
"AT 38,407. "ifG;' To u 

4168 IF K(ı)>1 THEN LET Kti)=Kiti 
I)-(2#(RND>.55)) 

4178 IF K(3)»>1 THEN LET Ki(3)=Ki(3 
I=-(2x2(iRND>.SS5)) 

4173BS5L_OW 

4175 PRINT, AT 1,13; "PRESS N/L'" 

4188 IF IN eyganı THEN GOTO 4180 

4185 PRINT AT 21,13;° Rs 

4+198 NEXT 5 

42088 CLS 

4218 PRINT AT 4,2; "5S0O,NUN KOENNE 

N WIR WIEDER”, NACH HAUSE.“ 

4228 IF INKEY$="" THEN GOTO 4228 

4230 CLS 

4248 PRINT AT K; 2; "DOCH SIE BEME 

RKEN,DASS DER" HYPERANTRIEB 
VOELLIG",,," "ZERSTOERT IST,UND 
SIE NUN"); ," ZUM DRITTEN PÜRNE 

TEN DIESES'",,,‚,' SYSTEMS FLIEGEN 
MUESSEN,",,," UM DIE NOETIGEN 

ERSATZTEILE", ,,‚" ZU BESCHAFFEN. 


4258 IF INKEY$="" THEN GOTO 4258 


4,2; "DIES KOENNEN 

Pr EINEM ALTEN WA 
‚" _ TRIEBWERK TUN.A 

MUESSEN SIE DURCH 





IN ’ EORITEN-GEBIET.STO 
SSEN",,," SIE AN EINEM AN KOSTE 
T SIE",,," DAS 258 SOLI.AB UND 
zU" ,,," WERDEN SIE AUCH NACHTAN 
KEN", "“ MUESSEN (=388 SOLT)." 
4275 IF INKEY$="" THEN GOTO 4275 
42808 


CLS 
4285 PRINT AT 4, ‚2, SIEyEBE SIE z 


HR RAUMSCHIFF” ,, DEN TAST 
E 34 W ee UND OÖ I-— 


4298 ar INKEYS$='"" THEN GOTO 4298 


5 
5888 REM ###* RUECKFLUG ### 
5881 LET M=M-25® 

saa5 LET L2=14 


5887 LET L1=® 
50983_IF Er Pr=ı THEN LET TOD=-TÜOD+1 


xT 5 
5868 FOR 5=1 TO 35 
5978 Era „AT INT {RND#22) ,INT ( 


[7 
5878 IF PEEK (P ER’ 163985 +256 +PEE 
K 28 PRINT, B, "B’' THEN GOTO 59280 
5008 LET L2= en er 
2=2 TIES uueL.H 
2u=29 

RND>.2 NENEN PRINT “AT IN 
PEN (RND +32); 

NEXT L 


PRINT AT 21,0;6$ 
IF RND> .48 THEN GOTO 5388 


2 
aeg 


SSSEVNUD 





HHHET 
nam: 


5 
=} 
5 
” 
5 
5 
5 
S 
S 
5 


PPPRPE 
PONRRr 
7 
rD 
Sch 
- 


"SIE SIND NUN 


S1S® PRINT AT 4,2, 1 
ae LT RDCHDEM" IHR TRIEBUS 
RK BUF’DENM",,,"" BRITTEN_PLANET 
N REPARIERT”; .," WÜRDE ‚ZURUECK 
ZU TERRA ZU" ),)" FLIEGEN.’ 

5155 SLOW i 
Sisa IF INKEYs="" THEN GOTO 516 
5178 CLs 

5175 GOSUB 70800 

5177 CLS 

Ss1e8 GOTOo 6082 

238 Er" 

5338 PRINT AT 4,2; "IHR TREIBSTOF 
F WIRD KNAPP" 

= SLOW 


325 
53380 IF INKEY$="'" THEN GOTO 55538 
& 


5348 LET M=M-30 
5345 FAST 
5358 FÜR N=2 TO 21 


PRINT AT N,B;G$ 
2352 ERINT ST INT (RND#22) ‚INT ı 


5,28, 
'‚TaAB_12 





5399 ERZET AT 4,28; B';AT 
:T " ; TAB 19; “@: 
BR ; TAB 14; "er Ind”; 
a a 
=D 
PRINT AT = 
PRINT AT .’ 33; AT 4,28; 
PRINT AT N,15; ER" 
XT N 
PRINT AT 7,15 5°" 
IF INKEYS$="" THEN GOTO 545@ 
=4 TO 18 
PRINT AT N,12; ' EEE 
EXT N 
NEXT 5 a 





SSa2BS0TO 5138 user 
6088 REM *** RESULTAT ### 
6918 CLS 
6228 PRINT AT 4,2; "WIR LANDEN NU 
Bosse He" HEN gLte TER 

=" THEN GOTO 683 
6835 FAST - 
6848 FÜR S=®8 TO 15 
6858 PRINT AT 5, Gi AT INT {RND 
#19) ‚INT (RND=S2) 
NEXT 5 


5962 
5878 PRINT AT 19,08; vg 
5975 SLOW 
858 Baint-RrT9, 12, 

as8 ; ";RL_18,11 
z - Tan.19 s "mi AT se 4; "gm > AT 
216;14; ‘ "TA , 
6 12@0MN 
61128 PRINT AT Fe = - Wi 
5128 IF INKEYg=" + THEN GOTO 6128 
6125 CLS 
5128 ERZHT 

AT 4 2; "WIR SIND NUN 

WIEDER AUF TERRA", , UND KOENN 
EN ERFAHREN,“ , FE ioss WIEVIEL DER K 
ur LENSRBRARUR, wir EINGEBRACHT H 


6158 IF INKEYS="" 

ö[s $="" THEN GOTO 6158 
NT AT 2,8; "KRY.I.T. PR. 

PRO GEWINN" 

170 LET Z=INT (BND+. 9.8 

6180 PRINT AT 4 [dIE TAB ı 

0,Z;TRB 28; "= ‚tab 25; IFG#Z) 


EIER eh 


OHLET G=INT (FG#Z+ iM) ) ra 
INKEY$="" THEN GoTo 8210 


G<5888 THEN PRINT AT 4,2 
IND DIE ALLERG hr 
BAUNIETE.SIE SIND o[e Ent 
s240 IF (G> 25000) AND (6< 

THEN PRINT AT 4,2, "SIE NABTTEN s 
Ennste® aunkie" N „SPAREN KOENN 

(G>=128808) A 
I) THEN PRINT AT 4, ag zu \äseses 








UT GEARBEITET UND" > DUERFEN 
WEITERHIN BE re - 
EIBEN. 4 DER ST VB TBl 
S260oBIF G>=1P20a80 THEN pP 
4 ‚2; "DANK IHRER N Ar 
""" LEISTUNG WERDEN SIE zum" rt 
na DER U,S,T EL 
or DBPRT Lu 
CKUUNSCHT“ zu IeHEN” EX 
5278 IF INKEY$="'" THEN GOTO 
6288 GOTO 98580 te 
70808 REM *##*= CHECK LIST z#x 


7885 FAST 

7@12 PRINT AT 4 Fin 

7928 PRINT AT 2,8; "CHECK LIST _"; 

AT_ 6,8; "GELD"; AT 8,0; "MASCHINEN! 

;AT_1i®8,8; "INGENIEURE";AT 12,0; “R 

OBOTER"; AT 14,8; "PROUIANT", 

7838 FOR S=8 TO’ı5s 

7848 PRINT AT S,108; "m 

7850 NEXT S 

POSSERENT I Hl IT, re, 
6,26; "Sol 

6; "STUECK"; AT 16, 26, FmAnN> er AB 

& 

7 . 


F- 


er oe 7 
dyın Er et ah, BT BE DEN IE 
7075 SLOW 

5838 ERLIMEYSgZ/ zuen auo vage 


gasg RENTEN 
*** INITIALIZ 
5 LET Nm 10BBR, hi 
a, 
ND>.S THEN GOTO 9 
@ LET B$="TREBOLA IT" m. 


Orion 











C=-INT {RND+#199882B) +522® 
D=INT (RND#2) +1 

E=INT (RND+#2) +1 
A$='HUEGELIG' 

xX=® 

193® 

B6='ALDEBA u. 

C=INT I(RND#1922988) +59028® 
D=INT (RND#2) +1 

E=INT (RND#2) +1 
A$='"FLACH' 

xX=1 

U =" 





818 FOR 5=2 TO 21 


9 
9828 PRINT AT 5,8; 
NEXT 5 


9855 SLOW 
9848 IF INKEYS="" THEN GOTO 9548 


Ss52oHcLSs 

Seeo PRINT AT 21,12; "NOCH EINMAL 
TLY/N)I "“ 

9878 IF INKEY$='"Y' THEN RUN 

9888 IF INKEY$='"N" THEN GOTO 999 


9 

9898 GOTO 98372 
3997 SAVE "ANTAREB" 
9998 RUN 

9999 STOP 





für den zx-81 den haben, da ae 
. nde ? a 
den ZX-81 u und nie gekannte Br 
in 


+ »für 
Wenn Sie das en el 2 ns Weltall wagen, 


Sie sich gleic am 
ren warten. 








RS=RSs H+EHR 


mm 
33 





ZEICHEN 


= B: ZIEHEN 
E 16418,0 


Q=2 TO a“ 
NT AT 0,2;0$ 


K 

R 

I 

xT @® 

T Is='842 o12 
5 126 254 113 
ii 19858 128 119 
RAUMPRTROUILLIE 


BU r 


254 9806 
e32 885 
a24 242 
ORION 


DOONANP 
WOTZNWDO 


O 
R 
E 
E 
3 
@ 





Al, 
Bier is" 2; 
"AT 15,27 6 


13° FOR Sr, TO LEN 9$ 


14 NEXT 
‚8; AT „14: 
ah 
“:AT 165, 2’ 


15" FOR D=2 TOD LEN D% 
ir’ NEXT © 
28 PRINT AT 10,14; "5 








11,14 


“. ;AT 
MAT 12,128, CHRe 299;87 19 24; 
uns 33; AT „ı14 14 chRs' ı133;AT 1 


- TG LER G$ 


25 PRINT FT 1®, 17; " se 12 
£ u: ar iz, Er ee E "HT 173 
% Eat 18, 27,: ";ar 15 

256 FOR 9= ı TO LEN 8% 

= —. ru 


SEE a 18, 253; ve 
23; .. 2, 23; .. 3 Ar 
‚53: 
3 


: Ar i7 23; " 
Ilsre3 7TD 17222 
24 Ba IL.uarL IL 
IE Er I$=i$15 3: 3 








. TO 3 


38 NEXT 

55 PRINT Kerr 28,5; "VEREREEE 
mn“ > 

“8 FOR 9=1 TO Leu 0% 

43 FRI BER FB 







EEE 


Ten hr 
xT m 

42 RANMD MER ı7E2 

8 LET "228 


oir 


OR I=z16514 TO 16686 
862 POKE I,UVAL M 


792) 
54 LET de M615 Tn ) 
66 NEXT 
565 GOTO 1E3 
ie PRINT AT 2,INT (RND4(33I-LEN 


= 


& LET RA=uSR 16528 
Sa Ler 328.7 

19808 IE S/1E2=INT (S/iE2) THEN on 
er IF NOT A THEN GOTO 7% 


110 
3E2 
7 IP Agtıl -chne 136 THEN LET 











218 IF A ar PR 138 THEN LET 
538 ır“ /4E2=INT (S/4E2) THEN L 
Lg, 2=INT (5/5E2) THEN LI 
= TNEN PRINT FT 1,2 
80 IF 5,=6882 THEN GOTO SEZ 


27® 
>82 
5515 
>85 
31® 
328 
332 


+38 
128) 
22 
438 
+35 





532 
54» 
SS5® 


® & 
ET P/PEEK 16514+256 «PEEK I 


FOR X=1 TO 3 

POKE p’i2s 

POKE P!CODE CHR$ 23 
i TO 2 


as L 
LET HS =H3>CHR3 CODE L31iX%X)3 » 
NENT MW 
POKE 165415,08 
PRINT RAT 22,2 





2; 


(RND #z35-1)}) 


LET T=-T+INT 
22 70 THEM LEF T= 


16] 
IF ’T)31-LEN A$ THEN LET T=3 


i-LEn A3 


S924 
aly- A 


IR 
za 
DEN; 


ST ES 
LOISTRERKE DER 
ses 


PRINT AT 2,T,#$ 

LET A=USrR 16525 

LET 5=-5+13 

ir a Leer) (5/15) THEN LET 


c 
Ir AS=CHR$ 128 THEN GOTO 72 


IF MOFOR THEM SIT 522 
PRIMT AT 1,2; 5 


SSIHT PT 27-3: 

LET 32 =343>2% 

LET 5= 

LET AS=CHR$ 240 

GOTO 

PRIHT AT D,3, IE;AT 1,2,” --- 


SIE Ser Iecegi ren 
KONTROLLFLUG DURC: 
Res IK, IHRE ayazs 
DIE SAGNET ISHE FE 
ASTERDIDEN zU MES>S 
Sug OR Taucen PL 


GSETZLICH MIE SESEHENE LESE 
WESEN AUF, DA FÜUER SOLCHE ZU 
TSCHENFRELLE NICHT GESORGT iST 
rue SCHUADE 
@ AUS SHEN. UUO OAS WIRO Koza 


ini I#7 37 14,9;:” DOCH © 

NICHT GENUG, ’ HABEN SIE 5 

IS HIERHIN ALLES GUT UEBERST 

ANDEN BERATEN SIE IN EINEM Sc 

Ey Ars öR N „GESTEUERT U 
SR 17 

1912 POKE 1864 185° 





FOR 0=1 TO 7 
EXT ” 


DRUECKE EIN 
HEN GOTO 1®1® 








Fireball 


für den Dragon 32 


DRAGON 


Die Feuerteufel ziehen durch die Nacht und treiben mit jedem, der Ihnen begegnet, Ihre 
makabren Scherze. Wenn Sie, lieber Leser, es mit unseren kleinen Teufeln aufnehmen 
möchten und sie für alle Zeit von der Erde bzw. von dem Bildschirm Ihres Dragon ver- 
bannen wollen, sollten Sie sich schnell das Listing vornehmen, eintippen und los 


gehts! 


Spielbeschreibung: 

Wie alles Übersinnliche, sind auch un- 
sere Feuerteufel nicht sichtbar. Sie kön- 
nen nur durch einen runden hellen 
Schein, der sie umgibt, wahrgenommen 
werden. Als mutiger Held müssen Sie 
versuchen ein Loch zu graben, mit 
Hilfevon den 12 Paketen Werkzeug, die 
unter der Decke einer lagerartigen 


358 CLEAR 5865: CL5 


48 Z1$="T543103L4" :22$="T5Y3104L4" 


: 245="LZCCEELID" 





Halle hängen, in der die Teufelchen 
spuken.Ist das Loch gegraben, gilt es 
nur noch zu warten bis einer der klei- 
nen Biester ın die Falle geht und dann 
das Loch schnell wieder zudecken. So, 
das wäre also der Erste gewesen. 

Aber wo einerist, da sind meistens noch 
mehrere, so auch in unserem Spiel, 
denn jetzt geht es erst richtig los! 


34="T25503431" 


>38 PMODE1,2:5CREEH1,1:PCLS5:COLOR4,7 


68 R1$="D49L4BLIORZOLZADISRIL": 


41$="DDFFCCEE" 


Immer mehr Teufelchen tauchen auf. 
um Sie mitzunehmen, in ihre unterirdi- 
sche Höhle, tief in der Erde 

Sie selbst sind mit vier Leben gesegnet 
und nach jedem verlorenen oder ge- 
wonnenen Spiel, bei dem 8 Feuerteufel 
eingegraben werden müssen, treten 
diese noch zahlreicher auf und das 
Spiel wird immer schneller 


Ne$="AABEBGGDD" 


D2$="D48" :036="D4BLI4OLSRZ3FSDLOGSLITRIEFADIS” 


?0 04%="D4QU48L3RZ3FSD1OL17RISFSD15GSL2E" :05%="D3AUSBESRIAFSDSBUZOL2D" : 063="DAHR 


20 „ 


88 DRAW"BMI12,4B"+M1$+"BM42, 40" +D2$+"BMEZ, 40" +03$+"BM102, 4ODI4ARZ2ZOBNM1O2,, JORZOL2OD1 


’RI13EM132, EARZB" 


98 DRAU"EMAG, 120" +04$+"EMES, 128" +05$+"BM129, 120" +06$+"EM156, 120" +06% 
109 PLAY Zis+K1$+K1$+K2$+K26+2%8 


118 PMODE4,1:SCREENI, 1 
128 GOTO 659 


1398 FOR F=243 TO 48 STEP-1 


'NEAT 
148 PLAY"T253" 


159 E1=INYSTKCH) EZ=JIQYSTKCL): 


LINECF,3)-CF,7),PRESET': FOR G=1 TO 3:FOR 


ES=PEEK( 55250 ) 






Y=1l TO Li48 








1658 IF E1>56 THEN 226 ELSE IF E1X28 THEN 238 ELSE IF E2<3@ THEN 248 ELSE IF EZ>5 


 THEN 2589 ELSE IF E3=126 OR E3=254 THEN 490 
{FB IF A=C AND E=D THEN 288 ELSE GOSUB 2ER: IF A=C AND B=D THEN 298 ELSE NEXT G,F 


GOTO 198 
sg IF PPOINTCA,B+23=5 THEN 178 


15 
136 a B-& )-(A+7,B-7 ),PRESET ‚BF :B=B+2: PUTCA,B>-(A+7,B-7> ‚A,PSET:IF PPOINT“ 
A, 


E+2>=5 THEN 208 ELSE 199 
eu FOR C=1 TO 19:PLAY Z3$+%2%: CIRCLECA+3,B-3).C:NEXT:FOR C=18 TO 1 STEP-1 PLAY 


“1%: CIRCLE< A+3,B-39,C,B: NEXT 
>10 SUTD 558 
228 PUTCA,B)-CA+7,B-7),B,PSET: A=sflt3:GETCA,B>-CAt7,B-73,6B,6G 
AR,PSET: PLAY Z3$+"C":GOTO 158 
235 PUTCA.BI-CA+7,B-79,B,PSET: A=A-3:GETCA,.BI-CAr7,6B-7?7,B,6 
PSET: PLAY Z3H EI: GDTDTIER 
24a IF PPOINTCA+7,B-8)=8 THEN 188 ELSE PUTCA,B)-CA+7,B-7), B,PSET:E=B-3:GETCA,B) 
-(A+7,E-7).B,G: PUTCH, B»3-C. A+7 ,BE-7 ):A,PSET PLAY Z3$+"A":GOTO 156 
258 IF PFOINTCA,E+1)=8 THEN 178 ELSE PUTCA,B)-CA+7,8-7),BE, F3SET:B=B+3:GETCA,B)- 
A+7 8-7 3:B.6: PUTER.BI-(A+7 .B-7 9, RA, FSET :PLAYZ3S+"DILCE" :GOTD1S8 
8 ON H GOSUB 288, 329,339, 338, 459 
a IF PPOINTCC+3,D+2)=5 OR H=5STHEHN RETURN ELSE H=53:G0TD 448 
230 %#=3:Y=A:IF C<248 THEN ZIBELSE H=2:G0T0 320 
234 IF BZD THEN 3988 ELSE IF B}D THEN 218 ELSE 37% 
3858 IF FPOINT<CC,D-3>=6 THEN 396 ELSEH=4 : 4=9:Y=-5:GOTO 39% 
218 IF PPOINT<CC,D+1>=8 THEHN 376 ELSE H=3:#=4:1=5:G0TD 399 
328 %=-3:'Y=B:IF C>8 THEN 298 ELSE H=1:G0T0 258 
338 A=B:\=3 
348 IF A<C THEN 368 ELSE IF A>C 
358 IF FFOINTCC,D+Y?=5 THEN 398 ELSE OH RNDEZIENTO 368,378 
364 IF PPOINTCC-1,D+Z2)=ATHEN 359 ELSE H=2: =5:Y=9:GOTD 398 
37a IF PPOINTCC+3.,D+2)=B3 THEN 358 ELSE Hal :%=5:'/=B: GOTO3?8 
328 K=B:Y=-3:G0T0 3408 
338 PUTCC,D)-CC+7,D-7),E,FSET: 
C,DI-CC+7,D-7), F,FSET :RETURN 
458 IF I=1 THEN 428 ELSE IF 
418 I=1:LINECA,B-5>3-CA+7,B-15>5, 
428 I=A: LINE A+S,B+1 )-CA+15,6+5) 
LSE PLAY" T25501DT7BDZE" :GOTO 178 
RT NENUIDETHFIRREN PLAY Z1$+"T7@"+2#$:M=M-1: 5=5+1B08: IF M>G THEN 478 
448 FUTCC.DI-£.C+7,D-7),E,FSET: D=D+3:PUTCC,D>-CC+7 ,D-7),F,PSET : %=RNDC RNDC SB) )+L* 


RNDC 18): RETURN 
=4-1:IF 478 THEN 468 ELSE D=D-5:PUTCC,D>-CC+7,D-7),F,PRESET :H= 


458 PLAY 2Z3$+"C": 
PUT£C,DI -£C+7,D-7),F,PSET: RETURN 


RHDCZ}):0H H GOTO 238, 328 
458 PUTCC,D)I-CC+7.,D-7),E,PSET: 

476 LIHE< 199+M%19, 29 )-C 197+10%M, 132, PRESET,BF'C=192:D=39:H=2:G0OTO 1798 
436 I=8:L=L-1:M=7-L:PCLS 


439 DRAW"EM1B, 11JELZRESLZDEERARZUELZRSLZDERZERZUERIDEUSRIDIFIUIRIU1IRIULDERLUSBRZR 


: PUTCA,BI-CA+7,B-7 2, 
ß PIJTC A; B >—< A+7, B-7 >, 


THEN 378 


C=c+4:D=D+7 :GETCC,DI-CCH7, D-72,E,G:PUT 
PFOINTCA+1,B-11>=8 THEN 178 
PRESET,EF: PLAY" T7503"+418$: 
‚FRESET.BF:IF A+t5=C AND B+5= 


GOTO 176 
D THEN 4308 E 


ELEDERELFIEDZRZ3" 

568 FOR A=191 TO 47 STEP-24: 
518 FOR BE=1 TO 28:DRAU AS: 
528 RESTORE:FOR A=1 TOD 3:RERAD 
524 IF C-8%D748 THEN D=D-3: 

>, PRESET,EF 

548 FOR E=8 TOD D'DRAW BS$:NEAT 


DRAW" BMS,"+STRSCA) 

NEXT B,A 

B,C:D=RNDCL)*3 

GOTO 538 ELSE LINE(CB,C-1)- 


E,A 


(B+7,C-8xD-8 


558 DATA 232,134,16,184,96, 1698, 72,136,208,112,176,136,48,898,128,64, 144,88 


568 FOR A=32 TO 216 STEP 194: 
7,B-7),C,PSET: NEXT B,A 


578 LIHE“ 48,99-(247,7),PSET,BF 
5238 GET(8,188)-(7,932,B,G 
530 GET(B, 198 7,93), E,G 


FOR B=55 TO 175 STEP 24: PUTCA.BI-CR+ 











558 FOR X=188 TO 100+6-L)%19 > CH, =(%4+7,13), PSET : NEXT 
618 A=96:B=183:H=2:0=216:D=39, I Aa 

628 S=S+F:CLS L:IF L=1 THEN 948 ELSE PRINT 8198,"sehr gut";:  PRINTS167,"S 
ES eK TNTaSS?, nun Rd BTL FADE" "PLN ziesznes zerzue 

N er 5 SPIEL NR" in 2$+41$+%42$+Z1$+ '$+Z1$ 

20, Cor »8-L; :PLAY Z2$+K1$+425+Z18 2% 

039 SEE FFTTRTDIM ACB,B),.BCH,E)  ,CCB,6),ECB,8),FC0,8): PMODE 4,1: PC 
©60 DRAW BM191,S3RSELL7UIRTULLFUIRTHILS" :GETC 198,939 9-6197,94),0,  G 


675 A$="BRIRGBRZROBRZREBRZREBRZRABRZREUILITUIEIRI RIFIRIFIRIFIBUALI1IRIU1ERZ 
RÖBRZROBRZROBRZRRERZRIEM+L , +7" BERLESMRANG 
680 BS= DPUZL7DZUPDIRTBDT" PLAY Zi$+X2$+X1$ 

„EN36 , 183R1UIRIUIRZDIRIDIRIBUSHILSGIBR3RIUZLIHIRSHILI": PLAY Z2$+X18 
788 GET( 96,183 )-( 183, 1763, A,C i 
18 DRAW BM193, SIRSEILFUIRFUILFEIHIFIRSEIGIHLEIGILSHIFIEIHIFIRIEIGL" : PLAY X2s 


r28 GETC192,39)-(199,32),F,G: PLAY Z1$+2%% 
738 L=7:CLS 8:PRINT33, "ANLEITUNG" 
748 PRINT:PRINT"ES HAT SICH BEIM STAMMTISCH HERAUSGESTELLT DAS DU SEHR 


MUTIG BIST.DESHALB DARFST DU AUCH DEN FEUERTEUFEL BESIEGEN ! UND WIE ALLE TEU 
FEL UND GEISTER IST DIESER LUNSICHTBAR UND FUEHRTNICHTS GUTES IM SCHILDE !ıı" 

758 PRINT"ABER SEINE WAFFEN KANNST DU SEHEN UND WENN DU NICHT vORSIC 
HTIG BIST.KANNST DU SIE SPUEREN !IN DIESEM SPIEL HAST DJ MIN.4 LEBEN. GESTEUE 
RT WIRD MIT DEM RECHTEN JOYSTICK." 


768 INPUT"ENTER";Q$: IF Qg="" THEN 778 ELSE END 
778 CLS 8: PRINT"WEHREN KANNST DU DICH INDEM DU FORTLAUEFST ODER DURCH DRUECKEN 
DER ’FIRE’TASTE EINE GRUBE GRAEBST UND SIE MIT DERSELBEN TASTE WIEDER ZU 


DECKST NACHDEM EIN FIREBALL HINEINGEFALLEN IST."; 
788 PRINT"ABER PRSSE AUF DAMIT DU NICHT SELBER IN DEINE GRUBE FRELLST ı DAMIT 


DU GRABEN UND WIEDER ZUDECKEN KANNST," 

738 PRINT"HRENGEN SPATEN UND HOLZBRETT AN DER DECKE!DIESE HILFSMITTEL SEHEN 
ZUERST ALLE GLEICH AUS... ABER FORTUNA IST MIT DIR: DAS ERSTE PACKET IST D 
ER SPATEN,DAS ZWEITE DAS HOLZBRETT !!";:INPUT Q$:IF Q$="" THEN 200 ELSE 800 


888 CLS 1:PRINT"DAMIT DAS ALLES NICHT ZU LEICHT WIRD SIND DIE HOLZBRETTER MORSCH 
UND EINIGE LEITERN SIND MIT OEL BESTRICHEN!ALSO KEIN SPIEL FUER HEKTISCHE LEUTE 
| DAS SPIEL WIRD IMMER SCHNELLER!" 

818 PRINT"HOECHSTPUNKTZAHL YOM VERFASSER: 9337 PUNKTE! 11 1":PRINT" BITTE WARTE" 
328 GOTO 488 

830 ’ 

848 PUTCA,B)-(CA+7,B-7),A,PSET 

858 SCREEN 1,1:G0OT0O 138 

868 PLAY ZiS+K1$+H2$+ZX$+Z1$ 

878 CLS 4:PRINT®S138, "UEBUNG MACHT DEN MEISTER"; 

888 PRINTS166," DEINE PUNKTE :"; Si 


838 IF 5>H5 THEN 928: IF S{HS THEN 958 

988 PRINTS385, "HI-SCORE" ;H$; " YON ",5$; 

918 AN=AN+1:IF AN<S5 THEN 438 ELSE 9359 

928 H3=S :PRINTS239, "NEW HI-SCORE" ; ‘PRINTS321, "name"; : INPUT S$ 

938 IF LEHCS$)>14 THEN 328 ELSE PRINT3351., CHR&( 255); :GDTO99H9 

948 CLS 5:PRINT336, "DU HAST ES GESCHAFFT !11":15=5+1998 : PLAY" V25L303DT4LSO3VI1GAB 


GO4DN3L4ELSBO4O3ENI4LDLOSBENALDOZFAGABAL303DDDIAIGG" :GOTO 339 


358 PMODE1,2:5CREENI,1:PCLS 
968 DRAW'"BM43,48D3BL3BESR15F3D5G2L5BM43, 48D30FSR1SESU1BOH2LE ı BM88,, 4OD39OU3HESR LAFS 


D38U28L29 ; BM123, 43D48lJ4@F 15E15D48 ; EM178, 4BD4AR2OBM178, 4ORZOLZODI RI" 


978 PLAY Zis+X1$+%41$ | 
938 DRAW"BM3B, 1368D38U3B8ESR18F5SD3AGSL10H5, BM6D, 130F29E29; BM115. 130D4OR29BMI 15, 130 


R28L26D17R13; BM164. 130D49UJ4AL3R23F5D1AGSLI17RIEF4DIE"998 PLAY K2$+X2s+ZX5+728+X18 


+42%+27$ 
1098 ie: 2:PRINTS292, "NEUES SPIEL AJ/NÜ 77", : INPUT Q$:PRINTS1E2, "HI-SCORE VON "; 
55) :PRINTS194, "MIT ";H5;" PUNKTEN"; IF O$="J" THEN FOR A=1 TO 2508 NEXT 


RUN:ELSE IF Q$="N" THEH END 








1859 SI=SD+TEU1 ıK2=K1+C 1-1 > AS=K1+CR-2) 
129 FUTE 1.132936 82, 133, F1,PSET: IFIZAT =1ELSEFT= 
een FHINTCN2.128),PT,2 SI NIEESSIBENPTSLELSERTAA 
IA NEXT 
228 DEAUTEM4 , 4NR4DINHRZDIBM+S, AUSR> 2G2L2 UBS z 3, BUJSR4ND ‚3EM4 , 15F 
SNDSRZEN+4, ODBRAUBLAN DI ar SReFZGZLZF4BNM+4 , BUBR4DSLA4BNM+Z , BUSR4ND4RADSEMA4 , 12F 
224 FORI=1T04 STE I3=+1:STC 145 )=-1 : NEXT 
244 ST I2=H 
250 1$=INKEYS: IFIS=""THEN>2SQ 
ı 268 NI=YALC IS): IFNI=BTHENSDG 
276 IFSTCH1 )SGBTHEN228 
nn TAI CNIKINFSIETI- 3, 2,GHRUTCAL,1 90148, 0+1 9,2, SET :PUTC91,4U-1) 
235 I$=IHKEYS: IFI$=""THENDSG 
20 NE=VALC IS): IFM2=STHEN22G 
>16 IFSTC NZ )=SBTHEN24G 


ae an Dt © PRINTSZ23A, "HE,DAS WAR EIN FEHLER | 1"; :FORI=1T02:PLAYFS+"O1T2SSCCEE 
C2.0374" NEXT :FORI=1TOS@R: NEXT 
320 CLSRND( 8): PRINTS233, " „..HA ? GIBST DU AUF 77?" :SCREEN1,9:G0T0258 


344 IFABSENI-NES>2THENS2R 

zo GETS NeXW1-5, T43-CN2XW143, T1-1 9,2, G:PUTCS1,189-659,31 3,2, PSET 

269 COSUBATE 2 FUTCS1,1837-(59,31»,Z:PSE 

en Le >= THENELSRNDC 8): PRIHT2224,". „KLEINER OPTIMIST.UAS 77" ; :PRINTS278, "NA, GUT 

‚STARTE NEU" :FORI=1T01328 : NEXT SCREEN ,9:G0TO120 

>56 FORI=1T04: IFSTC I 3<>-1THENZSA 

>38 IFSTE I+59< >1 THEN?SA 

4aa NEXT : "FROGHOFPER 

418 FORI=1T06 : FLAYFS :HEXT 

428 ELSRNDE23) 

433 PRIHT=E236,"### GRATULIERE ###": :PRINTS23A,. "DU HAST ES IN "365 :PRINTS322, "VER 
SUCHEN GESCHAFFT": : GOSUBaAR 

440 FORF=1TD3: 50UND9S,5: FORFF=1T0S58 : NESTFF :SOUND135,5:FORFF=1T058: NEXTFF,F 

458 FORI=1T01338 : HEXT :SCREEH1,9 

4658 I$=IHNKEYS$ : IFIS=CHRS$C 32 JTHENIPOBELSEdEA 

476 Al=WIHNI-C 0-1 3:PUTC %1,1329-C X1+23, 139, BL,PSET:PLAYFIS 

458 IFH1>NZTHEH GOSUES4BELSEGNSUBE2B 

43a Al=WU1ENE-9: PUTC #1, 132 3-C K1+c 1-19, T33, F1, PSET :PLAYFIS 

s88 IFSTCH1>>ATHEN PT=1ELSE PT=4 

518 PAINTC#1+£ 0-29, 1389, PT,8-19: STC N2)=STCH1 I:STCEH1 )=Q:Csc+1 

528 GOSUBE4A 

524 RETURN 

54a DY4=L N2-H1 HC 972 3 K1=814+D% 

SSG IFSTCH1D>ATHEH PT=1ELSE PT=4 

568 PUTC #1. T+189-CK1+CW1-1 9, TtW14+5 3, F2,PSET :PAINTCK1+11, T+19 3, PT,0rE 

Sra KZ=eK1+DH 

328 PUTCK1, T+1B9-£ X1+CWI-1 9, T+W1+59, BL, PSET :PUTCKZ, T+89-C K2+CWI-1 3, T+27 3, F1.PSET 
:PAINTC X2+(. 0-1 3, T+0+5 3, PT,076 

594 Kil=K2+b% 

6Ba PUTCKZ2, T+35-C K24HU1-1 9, T+27 9, BL, PSET :PUTCK1, T+C0-2)9-CX1+23, 129), F2, PSET: PAI 
HTC#1+C0-1 3, T+13 3. PT,9/6 : PUTC #1, T+18 3-C X1+CW1-1 3,1293, BL, PSET 

&18 RETURN 
628 GOSUES2B 
628 RETURN 
648 D1=IHTLC/C9-2 3): D2=C-19%#D1 : IFDI=OTHENGEA 
658 GETCD1XW1-5, T+589-CD1$W1+3, T+79), 2,5: PUTC 228, 18 3-( 238,,W1-2),2,PSET 
666 IFD2=ATHEN PUT“ 248, 19 )-( 248, 22 >, 28, PSET : RETURN 
678 GET D2%W1-5, T+53 )-(D2#W1+3, T+79 9, 2,G: PUT 2498,19 )-( 248, W1-2),Z,PSET :RETURN 
636 DRAU"EM11 42049401 10R39L23015R11BM19B, 7SRSUSRZF2RZFAUZEARLEIRZUBBM2A4 .77C1L 
IG2R4BM2AE , TAU4HRZL2HU2ZL4USR2BM138, 77D2L4 
636 DRAW"BMS1 43049 U49L3R23FSD18GSL17RIEF4DI6EMIB, 53D39U30ESR 1AFSDI3AGSLLAHSEMI2E 
,53D39U3GESR15F3DSGZL5PM133, 53D3AFSR1SESU1OH2LE 
| 796 DRAW"BMIS, 183049 U29RZBU20D49EMSS, 112D39U39ESR1AFSDIOGSLIOHSENIS , 1B2DABLIIAL AR 
| 23FSD19G5L17EM133. 183D40U46L3R23FSD19GSL17" :F$="01 T255V31CEBOSBECO3T4" :A$="BMI?. 
|  136U3E1R1F1D2G1DSFZDIFINDZRIEZULELUSRIEZH2LIGZNL2FLBMLI, L4SL2HILZNUID2FALICHL2" 
| 71a DRAW"EM172, 198D40R20BM178, LOSRZBLZADIRI3EM213, 1BEDABUAOLARZIFSDLOGSLITRIEFA 
1 Di6" :0=12:4=29:W1=24 : T=198: T1=171: T2=152:W3=38 T3=151 1 01=51 : T4=158  Ag=Ag+"BM?S, I 

| FZHULDZG4RIFIRZ" 
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220 DX=CN2-N D2CQr2):} 


1>>9T 

110)-C 
4 | 
%1. T+199-€ 
PT: T/R1-1) 


520 FUTCK2, 188 3-(n2+23, 1727 ,BL,PSET+PUTCKL T+10)-CXi+29, Tehi+5D, FZ,PSETPRINTCK 
11O)-CKiH 3,129 








N?PPNACDD SMALL 


-CT/T33, T+233, F3, PSET :PAINTCK1+11, 1193, PT,W3/15 





Kil+chi 


089: NEXTYV  SCREENI ‚9: FORYV= 





“1+22,1293,BL,PSET : PUTCK2, T+8)-CH2+23, T+27),F1,PSET :PAINTCA2+1 

















> PRINT AT 8» 

T@,4;'@ Karsten Sch 
bmacher ©" ;AT 2,11; "wi ltingen”; A 
T 6,9: "RBERMANy ISA": AT 6,86: "cha 
SHIC GENERATOR”;AT 80,1; "New Gr 
aphic at PÜKE 223&07,249” 

_\.3 PRINT AT 11,108: FLASH 1; "PL 
Sa2E POTT h SF? nÄREABOB. Kon FE 
T a=8+1: NEXT f ee Pe 

5 BORDER S: INK A: PAPER 6: c 


Go Suß 9: Ga SuB 209 
ey Pass; "=: 17097943: ET 
18 FOR f=1 TO 8: PRINT AT f 


: 72: 
P &: PLOT iS,1i83-f: DRAU 684,0: P 
D : NEXT f 


=:32: P 
OR f=i1 TO 18: PRINT AT AT Bad 


35 RETÜRN 

“8 PRINT ST Ai1,i;"Press :": PL 
oT 5. ‚79: DRAU 56,8: PRINT 13, 
1; To peek one” AT 385,41; ° © 
save the U.D.G.’s";AT 17,05 T 
G l08d V.D.G.’E' >. 18,1: To c 
hange one by cursor 15285 Bar 2i 
a To stop B To clear pa 
rer" 

SO LET is=INkEy 


IF i$<"1” OR 
>"6” THEN GO_TO S® 

5 BEEP_ .287,2 
68 FOR #=11 TO 17: PRINT AT f 


Bi FOR f=@ TO 2: PRINT AT 19+Ff, 


2: NEHT 7 
72 Re 5='"1'" THEN Ga SUB 2388: 


I rd AT 315,7; FLASH 1,"5T0 
128 FOR /=-12 TO 28: BEEP .i1,JF: 
NEXT f 
132 STOP 
2808 GO 5UB 18 
285 ARINT AT 15,1; "WrRich charac 
er [7 
218 INPUT LINE a$: IF a$="" THE 
Nm En T0 218 

HEN "EB TO IF as<" " OR 

21 


LET 
3a <; ”» 
FR nen one 7 aA: LET zIfS ABER 
“8% (CODE 2 7 rt eo 


D2> 3. 
2328 RETUR 


or: 











7 


“ 


„+00 FRINT AT 15,7: 
O 





3808 ERINT HT 25,7; FLAS»Y 1, "SAV 
ri ZUIAUT "MERRT "3 LEE u 

„308 IE LEN E$6:120 OR b$="''" THEN 

re ns 


>08 
91BD SAVE bESCHDE E4009,768: GO T 


NG) 
FLASH 1; "LOR 
. .': anNmT "Raue7T ”; LINE BB 


BE IF LER b$:190 THEN GO TO 4980 
418 LORD bSCODE 64000,7656: GO 5 
IE 30: GG TG 88 | 


. 


508 LET 3=126. LET c=6: LET t=1 
LET ke&: LET 4=1. LET y=1 

51® PRINT FAT 1ı1.1:"Preszs PL | 
T 8,79: DRAU 56,8: PRINT Ar 13, | 
mw To Prinı"; HT ı5,1;”"B To cıe | 
BFIRBEN"Z 7,215 TO TretBfR” 3 
T ı9,1,'M To List character";AT 
21,1;'W To poke character” | 
s2® IF ATTR tt,k)=48 THEN LET c |! 
s21 IF ATTR I!t1,xk)=85 THEN LET <= 
522 PRINT, ar. t,k; OVER 1; PAPER 
cC; INK | 
524 Pause iz 

525 PRINT AT t.k: OVER 1; PAPER 
ie 

> LET i 5=INKEYS 

535 IF i6='r'" TAIEN GO TO 48 

54Qa IF i$="'"5' AND k>2 THEN LET 

.=k-1 LET s= 

545 IF iß=" 

ee is='6' AND t<:5 THEN LET 
=t+ 

‚zso_ ır i$="7" AND t>1 THEN LET 
572» IF ig='8 AND L<9 TIHEN LET 


ä P" AND ATTR I1,1 >88 
THEN PRINT AT t,&k; OVER 1; PAPE 
- ec =1: LET zZIiUVd sz ft) > 


Sur: FRPER 6; OVER 


i$ 
SRBR SD TU 5S2R 


s+#2 

4” TNHEN GO TO 722 

"op FOR /=i1 TO Z1ı: PRINT AT ff, 
“2 Be 


F 

- FRINT HT 35,8;”"In which cha 
er’ 

29 rn LIGE a6. IF ag="" THE 


Ber BET © AR 


N GO TO 


232 LET a$=-3€£i1 


3$:'©8" THER 55 To Tao 


784 PRINT AT 135,6: 
"99 FRINT KT 19,9; FOR ({=1 TO 


S; ENT (8+ (cö0£ a$- -52) +6498909 + 


(f 
">36 POKE (S# (CODE 35-32) +640988 + 


F-1),zZ(f) 
740 


NEXT f 
745 FRINT FT 21,8; “Press any ke 


758 SD SUB 28. PAUSE ® 
788 FÜR f=18 TO er 1 ar Ff, 


778 so TU 30 
Bı1® FOR 1=32 TO 127. POKE 23607 | 
‚ PRINT CRRE 1:: Rn a - -i& 
=”: CHRS 1;:“ 
z=e PRINT HT 21,56; ‘Press any ke 


E ©. SuS .» ©@& SUB 3 — 
FUR I=1 TO 2: GO SUB ı 


19010 FOR 9y=i TO 8. IF x)=c THEN 
FRINT FT t.,i#9: FRARBER i: ÖVER 1; 


Wh“ 


10538 LET <i=c.ä: NEXT 3: RETURN 
Er CLEAR : SAVE “Dener»ator‘" LI 








Oma plätschert lustig in der Badewanne 
für den Spectrum 
Ein Programm für alle, die auch einmal von Herzen lachen können und das wiederum 
zeigt, daß alles, was im entferntesten auf die Arbeit mit einem Computer hinweist, wir- 


klich nicht stupide oder töricht ist und nach der von vielen so gefürchteten, volltech- 
nisierten Zukunft mit dem Computer aussieht. 


Wer kennt es nicht, das Gesellschafts- | Bekannte beim nächsten Besuch, indie | bis man ihn stoppt. Man sollte ver- 


spiel "Oma plätschert lustig in der Ba- | geheimnisumwobene Materie Com- suchen, ein Minimum von 20 Sätzen 
dewanne”? - Wir hoffen, daß trotz der | puter einzuweihen. einzugeben, da die Sätze so am absur- 
Bezeichnung des Spieles, unterderesja | Zum Spielabablauf: desten kombiniert werden. 


allgemein bekannt ist, sich auch alle | Jeder der Teilnehmer (je mehr, desto | Ein Tip von uns: Um Wiederholungen 
Großmütter mit ihren Enkeln vor dem besser), denktsich einen Satzaus,derin | in der Satzstellung zu vermeiden, sollte 
Computer niederlassen und kräftig | seiner Grammatik dem Titel ent- | mansich schoneinbißchen anstrengen 
mitlachen. spricht. Nun gibt man diese in den | und seine Sätze nicht nur nach dem 
Dies wäre übrigens auch eine prima Computer ein, der dann selbst solange | alltäglichen Wortschatz, zusammen- 
Möglichkeit, Verwandte, Freunde und | neue Satzkombinationen ersinnt, | stellen. 


2 RE BEPPRPPIRPPHPRRÄRRBRED 92 IF Fi6ßt=1 THEH CO TO 4a 
5 nem 3” ® 5 SS IF FiAl=1 THEN ED To 130 

5 mer + om PLSTScCHERT # 188 IF FI4)=1 THEN Ch SUB 3100 
4 REM # LUSTIG IN DER + 185 IF ı(3)=1 THEN 50 3086 32298 
5 REM + BADEWANNE * 118 IF Fi2)=1 THEN C0 5UB 158 

E REM * x 41S IF Fiil=i THEN CO SUB 130 

7 REM * © Matthias Loose + i2ae 60 TO 48 

8 REM #* 1932 * _138 CLS : PRINT AT 82,8; '’ Neuer 
G REM # n start mit”; FLASH 1;"C0 To 390" 
1D REM #z#+##tH#++rı #2 +++ +++ stop 
11 RE 158 REM 
2@ LORD "umlaute"CODE 151 REM ++ Eingabe zz; 
21 cC 

BAT ıR,8; FLASH 1; "BAN 1S5 cLs 
> a a Far | 16@ PRINT AT 7,8, "Bitte die Sat 
23 PRINT AT 21,1;" (weiter mit re genau wie in folgendem Bei 
irgendeiner Taste}’” SH Fe eingeben: (WICHTIG: "7" 

3 se u 

25 BEEP .22,34.4 161 PRINT AT 13,8; "Oma/plätsche 
26 POKE 23583,30 rt/lustig/in/der Ba-dewanne" 

38 REM 162 PRI TAT 17,8; "ENTER allein 

+3 Intro 3#+% gabel" 
Si REN # 165 IF x1>=x-1 THEN GO TO 179 


: PRINT "OMA PLÄTSCHERT 68 DINET STRE (x1+1)4". Satz: 
34 PRINT : PRINT "BADEUANNE 









4 
. 169 IF ig="" THEN GO TO 179 
S5 PRIWMT AT 7,8, "In diesem S5pi 178 LET xi1=x1+1: a =1: 
2L werden zufällig Satzteile mıt -18 y„=1: LET z 
2inander kombi- niert.Es befi 171 FOR m=1 TO LEN = 
den sich noch ";x „I72 IF istm!«>"7" THEN GO To 17 
36 PRINT 'Sätze vom letzten "Ma 5 
i is Spei- cher, der insgesant 173 LET h Fipiu TO m) 
axinal ";x 174 GO Su (12B08>+Zz) 
33 "Sätze fFant." 175 LET y=m»+1 
1,1, "(weiter mit 176 NEXT m 
IFRERdEInEr Taste)’ 177 LET es(xi}=i$i(y TO ) 
9 PAUSE 8: BEEP :802,34,4 175 GO TO 165 
48 REM 179 PAUSE 28: BEEP «1,25: RETUR 
#1 REM ### Steuerung #%*# N 
15 er8 182 BEN non satzschteir 
#*%+ Salzsc 
46 DIM f(6): REM Flags 132 REM a; ren 
58 PRINT "Wähle: ” 185 CLS : PRINT "Nach Jeden Sat 
„51 PRINT AT 5,8; "1 Sätze z macht das Pro- ranm eine Pau 
bilden" 53€, die sich durch rücken einer 
52 PRINT AT 7,0;"2 Sätze Taste abkürzen Länt,." 
eingeben" 198 PRINT : PRINT "SPACE verlän 
PRINT AT 9,0; "3 Speich t die Satzschleirfe" 
er Löschen" .12195 PRINT A 21,8; "(weiter mit 
«+ PRINT AT 11,0; "4 Progr irgendeiner Taste)! 
ann saven" 196 PAUSE 
55 PRINT AT 13,2; "58 Progr 197 BEEP +32 ,94,4 
aneas ser, 280 cLsS 
56 PRINT AT 15,8; "6 Einga 285 POKE 23892 ‚2585 
be Löschen" 287 RANDOMIZE 
7 PRINT AT 19,8; '2 Daten 218 LET z=8 
freigabe” 215 FOR n=1 To 4 
82 Ir <>"" THEN GO TO 60 228 LET r=InT IRND#x1) +1 
sı ir i: ="" THEN GO TO 61 238 GO SUB (9a8+n) 
SB IF v0 OR Isa Te oTo on 280 IF 10m) un LEN ie 
> m m" ," rn 
za Im 1=a THEM An In an 268 NEXT n „> 70 078 
72 BEEP .22, % 278 LET Ageigt TO a-1) +" 
. 75 LET ftf)=1: PRINT AT 2#r+3, 253 MR 20080 
Fl. ; 
a8 Go To 60 388 LET r=INT IRND#x1) + 
SO BEEP .1.25 318 LET hames ır) ı 











R t 
259 P INT AT iz 
3502" ERLRT, 10,0 Sot, er spe 
Pd 
3268 ER TNKey._,, .r THen Go To I2ze 


*=189. Bey Max, 1ao Sy, 
Se Din „ IK ,18,. D b K-16,. 
gan IRRE OHE B Tre a - 
2386”, r A =@. Rey Zahı 
u e 1 er 
33j8 REIS 








Roulette 


für den VC-20 


Die spannungsgeladene Atmosphäre beim "Roulette-Spiel” nur einmal miter- 


- RR Se ER Ber RO Tele DRAKE nA En Ruchon nm ünzch jlen rer 
a a a ann en. enn der Mensch ist bekanntlich von atur aus ein "Spieler 

10 RETTET NE Ein Zustand der wohl kaum zu leugnen ist, vor allem dann nicht, wenn man = noch 

11 m” # einen Heimcomputer besitzt. 

i2 # ROULETTE # Aber bevor es mit Ihnen durchgeht und Sie beim echten Roulett gleich Haus und Hof 

3 u Fi verspielen, wie man so schön sagt, hier eine Kostprobe auf das, was Sie in einer Spiel- 

14 # <C) 1963 BY # bank erwarten würden. 

15 # ” 

ie 4 THOMAS KESSLER %# 

17 & PITSCHUIESE 35 # 

18 # 6696 ST.WUENDEL # 

19 # % 

PA 77 22 2, 2.707707 2705 7027070707 

1808 POÜKE36379,24 :PRINT'’Ia ir a | 

i1ö PRIHT"Z WEDER “PIELER HAT ALS @NFANGSKRAPITAL 18.888 —\ ZUR E 

RFÜUEGUNG. 

115 PRINT" MWIESETZT WERDEN HIPS ZU JE 1806 I. 

128 FRINT" WPIELEN “IE GITI AMOIEVIELE #PIELER (1-9)? 


125 GETPEA IFPEA<1BANDPEX>OTHENPRINT "IM" PER" @PIELER" PRINT: 00TO138 


i26 G0T0123 
138 FORI=1TOPEA:PRINTI"M.@PIELER" ; : INPUTPES<I): IFLENCPESCIIIISTHENPERCTDALEFTECE 


E#41),9) 











135 NEXT 

148 FORI=iTOPE}% UMCI)=100090 : NEXT 

zo0 FORRE=1TOPE# : IFDMCRE)<=BTHEN229 

226 GOTO3SBEBR 

230 IFDM<REI=OTHENEIZCRE)=B : SURCREI=B:ROKCRE)=B:AAKCREI=0: BBYCRE)=D DER<RE)=9 UN 
4cRE)=B 


235 IFDM<RE)=BTHENADO 

258 GOTO48D 

388 GOSUBSOQR 

4808 NEXT : GOSUB7098 : G05UB5099 


4933 
11215) 
818 
5828 
5825 
S038 
5835 
>0848 
3845 
50508 
5055 
50565 
857 
5Bd68 
836 
5188 
S11® 
128 
34398 
588 
6086 
6818 
6015 
6022 
6025 
6838 
6188 
’808 
7818 


07825 


7815 
7820 
7825 
7850 
7868 
’878 
78508 
7885 
7038 
7895 
70896 
80805 
8018 
3828 
9825 
8026 
8827 
8032 
80848 
8050 
8208 


GSOTO2BH 

PÜKE36879, 219 

PRINT"'n8 ”) I De u un u u 
PRINT" EI A IMOZU ES ImOA SM INDEEIR7AL"; :GOSUBSSOR 
PRINT" IMOSA DIA IMIOMIMILAINIZEIMISELAER ; GOSUBSSOR 
PRINT" WISE MSAIMITAINISAIMLITEIMZORINEIM" ; 1 GOSUBSSOD 
PRINT" 10224 1234 1024 E52 EIH2EH" ; :GOSUBSSDR 
PRINT" IB2SA ISO 4 Im31218323% BS3a 13441354"; GOSUBSSOR 
PRINT" | | | ei: 5 | | | mm 
PRINT" TAmIBBI"PES<RE): PRINT "FRAPITAL:",DM<RE) ; 
PRINT" IMAHL ">: INPUT"’IERNMBI' ; ZAZIRE): IFZAACRE)=ÖTHENSOGSOQO „ 
IFZARCREI<IORZAKCREI>SETHENPRINT" IT] :GOTOSOSS 

INPUT" TBBRBBBBBBI INSATZ" ; EIACRE? 

IHPUT" WBSCHWARZ" ; SURCRE)>: INFUT"TBBBEBBBBBBBBBRUT" ; RÜR<CRE> 
INFUT"i1-18 ";ARZCRE>: INPUT" TIBRBBBBBBBRIL 9-36" ; BBACRE) 
INPUT"GERADE ";GEA<RE? : INPUT" UNGERADE" ;UNZCRE) 
IFZAACRE)=BTHENEIHLRE)=O 

UN TREI=DMCREI-1BOMCEIHCREI+SURCRE)+ROXCREIHAAZCREI+BERLREI+GERCREIFUNZCRE)) 
RETURN 

PRINT" 

PRINT" Im “FIELSTRAND 
NEN 1TOPEZ PRINT"E"RESCIY, DMCID "N" : IFDMCII<=OTHENGOSUB28888 : DMCI)=@ 

NEXT 

KO=PEA : FORU=1TOPEA : IFDMCUI=OTHENKO=KO-1 : NEXT: IFKO=QTHEN END 

PRINT’ am SEITER MIT aaa ı" 

GETY&: IFYE<>" 7" THENSBSDO 

RETURN 

GZA=INT<RND<1)%37) :FRINT' DDR /ICHTS GEHT MEHR!" : IFGZA=8THENSBBS 

RESTORE :FORI=1T018: READRFA : IFRFA=GZATHENFORL=1TOPEA : SURCLI=B : NEXT: FAZ=2:GOT 


"> RETURN 


NEXT 
FOÖRL=1TOPEA :ROA(L>=8 NEXT :FAX=1 

FORL=1TOPEA : DMCLY=DMCLI+ZBO#CROXCLI+SWZCLI I INEXT 
IFINT(GZA/2)=GZ%/2THENUNA=3 : GE4=288 : GOT07970 
GEA=B : UNZ=2908 

FORI=1TOPEA : DM<CIY=DM< I) +GEZHGERC TI +UNKMUNZCL) NEXT 
IFGZA<=18THENBBA=8 : AAZ=298 : 5G0T07090 

BE7=206 : ARZ=0 

FORI=1TOPEA : DM< ID=DM< TI +AAZMAAZCII+EBAMBBACT) : NEXT 
FORI=1TOPER : IFZAACID=GZATHENDM< II=DMCIY+EIZCII# 3500 
NEXT 

L5=36673: POKE36874, 247 

FÜRI=BTORND« 134208 :POKELS, 8: FORL=1T058 : NEXT :POKELS, 15: NEXT :POKELS,@ 
FORH=SOTOZBOSTEP1® POKELS, 8: FORT=1TOH : NEXT: POKELS, 15. NEXT 
PRINT" ZRIIBBbBBBBN" ;GZi; :ONFAAGOTOBHZE , 8027 

PRINT"#" :GOTO8839 

PRINT" mM” 

PR!NT"’TDBBBDbBbbI.ü Ss KERERIG IE ER we 
PRINT" GEITER MIT ara |" :POKE36878,8 

GETS# : IFSS<>" 1" THENSBSY 

RETURN 


18008 DATA1,3,3,7,9,12,14,16,18,19,21,23, 23,27, 390,32, 34,36 
200869 FRINT"TIEBbBBbBbBBI 


"RETURN 











Computer Blues, Mad Boogy 
& Cool Rock 


für den VC-20 


Wenn Ihr VC-20 diese drei wirklich gut programmierten Songs über die Fernsehlaut- 
sprecher ertönen läßt, werden wahrscheinlich die meisten von Ihnen vor Neid erblas- 
sen, aber es sich trotzdem nicht verkneifen können, Ihre Glieder im Rhythmus der Me- 


lodie mitzucken zu lassen (uns ging es nämlich ebenso). 
Aber warum lange andere beneiden, mit einem bißchen Taktgefühl -in musikalischer 


Hinsicht - 


und Geduld, gelingen Ihnen bestimmt 


ähnliche 


Meisterwer- 


ke. Vor allem könnte man auch mit einem kleinen, passenden musikalischen Vorpro- 


gramm, 


dem eigentlichen 


Spiel, z.B. bei 


besonderen "Pfiff verleihen. 








Computer Blues 

Nach RUN spielt der VC-20 ei- 
nen 4-stimmigen Blues. Nach Beendi- 
gung der Melodie kann man den Laut- 
stärkeverlauf wählen und der Song 
wird wiederholt, nun jedoch mit dem 
selbstgewählten Lautstärkeverlauf. Ei- 
gene Hüllkurven können program- 
miert werden, indem man eines der Un- 
terprogramme schreibt. Die Geschwin- 
digkeit können Sie modifizieren, wenn 
Sie die STEP-Werte in diesen Zeilen 
ändern (auf die Vorzeichen achten!) 
Die Hauptstimme ist in Datas abgelegt. 
Die Schlagzeugbegleitung kann eben- 
falls geändert werden, wenn Sie die 
Zahl (hier 3) in Zeile 230 umschrei- 
ben. 


Mad Boogy 
Nach Starten dieses Programmes spielt 


Adventure’s usw., 


noch einen 


























der VC-20 einen bekannten Song 3- 
stimmig. Die Hauptstimme ist in Da- 
tas abgelegt. Bei jeder in den Da- 
tas auftretenden 255 ändert sich die 
2. Stimme auf die nach der 255 stehen- 
de Tonhöhe. Das Schlagzeug meldet 
sich am Ende jedes Taktes mit einem 
Crash. Wenn die Zahlen, in der 
O(x)=1 ist, geändert werden, än- 
dert sich auch der Takt der 2. Stimme. 
Die Geschwindigkeit kann man ver- 
stellen, wenn der STEP-Wert (ursprün- 
glich -.9) in eine andere negative Zahl 
umgeändert wird. 


Cool Rock 

Dieses Melodieprogramm spielt ei- 
ne bekannte Melodie 4-stimmig. Die 
Besonderheit ist, daß die normaler- 
weise lange Melodie durch Ansteu- 
erung, durch Ablaufstrings und vorge- 


schriebene Baßbegleitung in DIM- 
Variablen auf ein Minimum verkürzt 
und sehr leicht umänderbar gemacht 
wurde. Ein Beispiel ist TA$ (Taktstring) 
in Zeile 260. 

Die 6 Zahlen ersetzen 6 Viertel des Be- 
gleittaktes (Geräuschgenerator). Eine 
0 bedeutet Pause, 1: tiefer Crash, 
2: hoher Crash. Wenn man diese Zif- 
fern umändert, kann man jeden belie- 
bigen Takterzeugen. Ebenso kann man 
den Dur-Verlauf der Hauptstimme 
(sie ist in Datas abgelegt) verändern. 
Der Dur-Verlauf ist in ABS (Ablauf- 
string) abgelegt. | bedeutet: C-Dur (E- 
G-C’), zwei: F-Dur (F-A-C"), drei: G- 
Dur (G-H-D’). Während des Pro- 
grammablaufes erscheinen insgesamt 
drei Bilder, diedas Musikprogramm er- 
klären. Nach der 6. Wiederholung 
stoppt das Programm. 








Id REN ———— 
28 REM'I d 
58 REM"IH. GEHRMANN 


4 


REM’B HEINRICH- 1 


59 REM’I STR2.25 I 


12 

=]2 

30 

1068 
118 
120 
130 
146 
158 
168 
178 
156 
1978 
208 
218 
2208 
2308 
248 
2508 
2608 
278 
288 
298 
308 
si 
320 
338 
348 
3508 
368 
378 
386 
398 
458 


REM'ES HANNOYER 4 
REM"B TELEFON N 
REM"IQS117344771 I 
KEN —" 


REM" 
PÜKE36879, 253 

FRINT"TIEBHG-SOFTHARE PRESENTS :m 

PRINT SOIATHE MAD Bocıgy" 

FRINT " AONIKONIE Br" 

FRINT'@M HOLGER GEHRMANN" 

PRINT SDR DELAEUKDNDLKDERDEIRIKUNEN 374 TONES 7 28 SEC. MW 
OCH=1:066)=1:067)=1 

v=195 

FORX=1TOI186 

RERDT :POKE36877,8 

IFT=255THENRERDT : Y=T:NEXTX 

ZE=ZE+1 : IFZE=ITHENZE=1 : POKE36877 , 250 
IFOCZE>=1THENPOKE36875, Y : POKE36874,, \ 
IFO(ZE)=BTHENFOKE36375, 8: PÜKE36874, 0 

POKE36876, T 

FORY=12T01STEP-. 3: POKE36878, Y:NEXTY,X 

RUN17® 
DATA215,219,225,8,0, 225, 225,8, 219, 215,219, 215, 203, 207, 195,0 
DATA215,219,225,8,8,225, 225,8, 219, 215,219, 215,203, 207, 195,8 
DATAZ5S,163, 281, 203, 281, 195, 183, 195, 0,0 

DATAZSS, 163, 201,283, 201,195, 183, 195,9,8 

DATA175, 183, 255, 195, 195, 8,8.8.0,8,8,0,0,0,0,0,9,0 
DATR215,219, 225, 8,8,225, 225,08, 219, 215, 219, 215, 283, 2097, 195,0 
DATAZ15, 219, 225, 0,0, 225, 225,8, 219, 215,219, 215, 283, 287, 195,0 
DATA2S5, 163, 281, 283, 201, 195, 183, 195,0,8 

DATAZS5, 163, 201, 283, 281, 195, 183, 195, 9,0 

DATA17S, 183, 255, 195, 195, 8,8,0,8,8,8,0,8.0.0,0,6,0 


DATAZB1 . 207,255, 179, 215,0,8,215, 215,8, 201,283, 255,163, 281,195, 133, 195,0,8 


DATR175, 183, 255,195, 195,8,9.0.08,8,8,0,0,0,0,0,0,08 
DATR175,183, 255,195, 195,.8,0,8,08,0,8,8,9,9,0,0,0,0,0,0 











HENL3S 0'304 ALXNSN ATIN0OJI:SAILSZTOLA=-ANOJF 025 
NSNLIS.ALUIN 4 NIRDOF 1-HILSONLTT=ANN-4 ALNFZN ATINO4: TIFLSZTOLA=-ANOJ 915 
NANL3M: ALXON:ATINOIIS'-JFLSOOLZIT-ANDJ 095 

HANL3M: OGSEANSOH: T 'BETIMNOJ: H=43 Och 

AOPNFHLPCHNOT>MIIT I CSU) WAY SNL3O 99% 

„IN3IYJI-MISOIE BE E BUM.ININJ BL2r 

„IINUSE WB zZ E MO.LNINd 09% 

„IUUNOHE 5 IT AR MNM.LNINd 05% 

193442 NaI 315 N3WmH3aUM 3L1IamE.LNINd Opb 

‚@ SSOHC SINTEd M31NdWOI BRC.„LNINI BEr 

NMNIL3S:091T '’595+12330J 982% 

9EDP=STINFHLTEI=CEIRIE)ANITIINDPFEIT=- (EIBIE)N33IHIST: BB9IL=IZ DTr 
um | ONTINNN=M SI Sana RT. LNTNG OO% 
„NNYHUNH30 33970H Bu.iNIYdJ BGE 

„Aa WEM. INIMNJ @8E 

„SanIg W3LNJUOTEE EEE. LNINJ QLE 

M SW3lSAS 24UHMLJOS-OH BEL!„LNINJd 89€ 

ES2Z '6L8IEFMIOJ BSE 


O5 10109 : BEFENSOI: 3YOLS3YU: T"’-0=B BrE 

2'8’'0'B’a'0‘a‘a'a'0'9‘8'8'8'8'a'0'0'9’'OuLYI BEE 

8'8'8 

"SEI 207 B’EBZ'232 'B'SZZ (E70 22'522 8 Szz 08'880 'a'Sz2'0'a’a’9a’a'SszzuLlud B2E 
B’'8a'8‘8'0'8‘'9'a'D0'8'0'B8‘8'8'a'a’9a'a’'a'aulLya BTe 

8'8'8 
"561'282'8'C82'202'0'202'282'8'S1zZ'612'8'822'0'B'0'8'0'822'3'0'8'0’9'SZZULUA DBE 


2'9'0'90'9'8'8'8'8'8'0'3'0’'9'9'3'0'90'9’9'9’auL4a 062 

8'561 ’2 

BZ 'SsIz'EBZ'282'ST2'E82'282 SITZ ’SIz'EI1Z'B'S22'8'B'B’8'9'SzZ'a 8'909 'SZZULYA 882 
B’a'B'a'B'a'a‘a'a'B'a'a'B'a'a'B'a'Da a 'auLul az 

8'8'8 

"S61'202'0 E02 207 'B'CBZ 282 8 'Sız 'EIZ "0'522 'B'B 8 8 'a'S5z2'u'a’a ae 'SZZzULUN 892 
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427772) 

“ REMIB@IABSEMN 

& POKEEST , 126 POKE368693, 205 : FOKE36379, 25 

9 PRINT"7" :RESTÜRE 
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IFSi=1THENK1=B:G0OTO41 

AN=3 : GOSUB1 7: GOZUB36 ' GOSUBI? 

AN=2 : 5GDOSUB17 :GOSUJB36 : GOSUB37 

ARN=2 : GOSUB17 : GOSUB3E ' GOSUB37 

ARN=4 : GOSUB17 : GOSUB36 : BOSUB37 

AN=3 : GOSUB17 : G0SUB37 

GOTO42 

FARI=1TORAN:RERDAF 

FORJ=1TOLEN(A$) :B$=MIDSCAS,J, 1): FPRINTB$; :GOSUB21 : FORY=1T05B 'NEXT'Y 
NEXTJ:FRINT:NEXTI 

RETURN 

PCKE36878, 15: POKE368976, 168: FORM=1TO18 :NEXTM : POKE36878, 8:RETURN 
DATA! IE 247mm — 

DATA" Lamm DD+FAHT+ER Hi 

DRTR! me 
DATA"TIIB@HM9B83 Br R.BREURLEM I" 

DAT RT I! 

DATA'"T IE ANLEITUNG 1" 

DATA" De Er 

DATA" TASTENBEDEUTUNDEN: " 

DATA"XEINGABE MIT SR-HE & 1-8" 
DATA"LOESCHEN MIT <IELED " 

DATA"MSPRINGEN MIT <SRETURNED" 

DATA" WAELE SPIELANFANG : " 

DATA'’O SSE = SFIELER = BeomEmWl 

DATA'’M BCE = COMPUTER = BReRiikt" 
FORK=1T02222 : NEXTK :RETIJRN 

POKE36878, 15: FORL=235T020885TEP-1 'FOKE36877,L 
FORX=1T018:NEXTX 

NEXTL : POKE36878,B 

Si=1:6C0T012 

RETURN 

Ss "' MSHHIKIKDIKLKIITEDKINDKDKDATRIKDKLIKDE IKT" Si e=} . 
GETA$: IFA$="'"THEN43 

IFA$="5"THENSC=3 : G0OT048 

IFA$="C'" THENSC=&: GOTO48 

GOTO43 

REMLIEENEIGEI 

FORK=39T0168 : POKE3EBB1 , #4: NEXT 

GOSUB1B1:' REMMSPIELFELD 

FORK=168 T0395TEP-1 : POKE3ESS1,#:'NEATX 

PRINT" a"; :DIMRC4),5(7,77:G=-1:R(O)=-99 
DATA1,3,1,3,8,3,-1,3,3,1,3,8,3,-1,3,-1,15 
DATA1,3, 1,3,8,3,-1,3,3) 1,3,8,3,-1,93, -1, 15 
DATA1,3, 1,3,8,3,-1,93,3, 1,3,8,3,-1,9, -1, 15 
DATR1,3, 1,3,8,3,-1,3,3, 1,3,8,3,-1,3, -1, 15 
FÜRK=DTU7 

FORY=BTO? 

RERDJ: IFJ=15THENGQ 

SCK,77=J'GOTO61 

READS<#, 7? 

NEXTY,#: IFSC=6THENG63 

IFSC=3THENI123 

FORX=DTD7 

REM E A ROELLAIK) 

FORT=ATN7 

IFS(CK, YVIY>-1THENG? 

IFS(K, T>=-1THENFORA=-1TO1STEPZ : B=6 : GOSUB7B 'NEXTRA 
IFS(CA, T)=-ZTHENFORA=-1TO1STEPZ : FOÜRB=-1TOI1STEPZ : GOSUB7B :NEXTB,R 
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Jer+A:v='r+B IFU<OORU>FORY< v>7 -- 
IFSCU, VI=ÖTHENGOSUB7E :uoTors  TEN?S 

IFSCU, VI<OTHEN?S 

JZU+A: VeV+B: TFÜCBORVCOORU>FORYIFTHEN?S 

IFSCU,VI=BTHENGOSUBrE RY>7THEN?S 

RETURN 

IFV=@ANDSCK, 7)=-1 THEND=0+2 

IFRBSCY-V)=2THEND=Q+5 

IFr=7 THENG=G-2 

IFU=BORU=7 THEND=G+1 „ 

FORC=-1TO1STER2: IFU+C<BORU+C> TORE 

IFS{U+FC, V+GICOTHEND=0+1:G0T084 OTHENB4 

IFU-C<BORU-C>7ORV-G>7THENG4 

LES n+C, VFBI>BANDCSCU-C, V-GI=BORCU-CeXANDV-G=Y) > THEND=Q-2 

NEXTC: IFO>RCBITHENRCDISG RC IISKRCZIEVRCAdallın/ann 

En KRCDENERCHEURLAImY 

IFRC@)=-SITHEN16BO 

REMOTE TE 

PRINT"IUN " 

ERINT MN BUCHRSCESHRCAYI"E, "RC2Y4+"- WICHRSLESARCHI"M, "RCAI+LI:RCDI=-99 
IFRC4)=BTHENSCR(3) ,RC4))=-2: 607092 

91 SCRCHI,RCAHYSSCRK1),RCZ2)) 

92 SCRC1I,RCZYI=B: IFABSCRKLI-RC3I ICHZTHENIE2 

93 SCCRCHARCH I /2, CRCZIHRCH I 23m 

34 KSRCS)  V=RC4)  IFSCH, 7)=-1 THENB=-2 : FORA=-2T02STEP4 : 00SUB3I8 

73 IFSCK, Y)=-2THENFORA=-2T02STEP4 : FORB=-2T025TEP4 : GOSUB9B: NEXTE 

96 NEXTA IFRCBISP-SSTHENFRINTE"- BICHRSCESHRCH I", "RCAD+L; "RER" ; RCOI=-99:G 
97 GOTO1BZ 

98 Uex+A:Ve7+B: IFU<SBORU>FORY<BORV>TTHENIOB 
93 IFS<U, VI=@ANDSCH+A/Z, 7+B/Z) >OTHENGOSUB7E 
188 RETURN 

121 REM ER 

182 FRINTSS"M'+S1E+S1E" m" 

183 FORY=7TOGSTEF-1 

184 FORX=8T07 PRINT" EM"; 

185 IFSCK, YIJ=3THENFRINTTABCZD" MM 7°; 
1B5 IFSCK, YI=BTHENPRINTTABC2) ORT" ; 
187 IFSCK, Y)=1THENPRINTTAB<2) "ON T!" ; 
183 IFScK, Y)=-1THENFRINTTAB<2) " AOEERRT)" ; 
189 IFSCK, YJ=-ZTHENFRINTTABCZ) "RACHEN" ; 
118 IFScCK, Y)=2THENPRINTTABC2) ABO EN)" ; 
111 NEXTX PRINT :PRINT NEXT 

112 REMKIADDERIZEEI 

113 FORL=8T07 

114 FORM=8T07 

115 IFSCL,M)=10RSCL,M)=ZTHENZ=e1 

116 IFSCL,M/=-10RS<CL,M)=-2THENT=1 

117 NEXTM,L 

i18 IFT<>ITHENIGA 

113 IFZ<D1THENI16O 

128 T=8:2=8 

121 REMIS 

122 POKE284, 1 

123 FRINTSS+S18S8" VON"; 

124 POKE294,9'GETE$: IFE$=""THENI124 

125 IFASCCESI<ESORASCKEF)>TZTHENIZ4 

126 E=ASC(CES) PRINT" WER" B,") E=E-65 
127 DETHS$: IFHS=""THENIZ7 

128 IFH&=CHR$C2ZB)THENI122 es 

123 IFASCCHEI<4SORASCCHEI>SETHENIZT 

130 POKE294, 1:H=VALCH$) :PRIHTH, !H=H-1 
131 X=E: Y=H: IFSCK, VI) C=DTHEN123 

132 PRINTS$,S1858, "NACH"; 

133 POKE294,9:GETA$: IFA$=""THENI33 

134 IFAF=CHRECZD) THENIZ22 

135 IFASCCASI<ESORASL(ASI>7ZTHENL33 
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A=ASCCA$):PRINT" ARE", A=f-65 

LETB£ IFE£="'" THENI137 

IFB$=eCHREC29) THENI 22 

IFASCCBE)I<ASORASCCBEID>SSETHEN.I7 

FOKEZB84, 1: B=VAL(CB#) :PRINTB: B=B-1 

A=A'T=E 

IFSCK, V)=DANDABSCA-EI<=ZANDABSCA-E)=ABSCB-HITHEN44 
S5OTC132 

S(A,BI=SCE,H> :SCE,H)I=B: IFABSCE-AI<DZTHENI SE 

SCKE+A)/Z, CH+B)/Z)=8 

PRINTS$;"M" /518+51$; :PRINTS$"UND" , "NACH" ; 

POKEZB4 , 8: GETA1$: IFA1$=""THENIA7 

IFRI$=CHREC13) THEN1SS 

IFASC<CA1LSI<ESORASCCA1SI>7TZTHEN47 

Ri=ASCCAIS):PRIHMT" AI," Al=Al-65: IFAL<OTHENISE 
GETBEIS&: IFBi$=""THENIS1 

IFASCCBIS)<4IORASCKBIFIISSTHENISI 

POKE294 ,1:B1=YALCB1$) :PRINTB1; :Bi=Bi-1 

IFSCAL, BLI<DOORABSCAL-AI<HZORABSCBI-BIC>2THENI4E 

E=A :H=B:A=fA1:B=Bi1:GOT0144 

POKE284, 1: IFB=7THENSCA, B)=2z 

PRINT" zg" 

GOTOSZ3 

RENNER TE 

At='" DER COMPUTER HAT " : GOTO162 

As=" BRAYO, SIE HABEN " 

GOSUB164 : GOSUB163: POKE13B,8:WUAITISB, L:RUN 
FÜRI=1T023:G60T0165 

FÜRI=Z23T01STEP-1 

POKE36867 , ZMI : FOKE3SBS6S, 1-1  POKE36864, 13: POKE3S3655, 82-INT(C17/2)#4 
NEXTI:I=8 

FRINT" narmnn" 
PRINT" - AMY SUN AU 
PRINT" /Miek UDAME “a 
PRINT" # 4 — u u Du 
PRINT" IB@#’M1983 BY R. BREURLERN I" ; 
PRINT" 17 
PRINT" IBER3EENIS :l" 
PRINT" =— 
FRINTAS; "DAS" 

PRINT'® SPIEL GEWONNEN I!" 
PRINT" zum. NOCH EIN SPIEL ?' 
PRINT"® DANN „.." 

PRINT" zum FRESS Ahr KET I2":RETURN 
REM Ol 
PRINT"ZEN " 

PRINT's ne | 
PRINT" AB 20 a0 9 27 5 
PRINT''SSEWME 04 0% 0 2 52 
PRINT" ame 24 0 m I" 
FRINT’EEAmr 00 44 #1" 
PRINT" ae 24 00 49 07 
FRINT'GEEAE 04 44 04 “rl an 
FRINT" 28% '"ı Yı > 
PRINT''SEArFM ' Yı mut 
PRINT" AB " "da Ya Ti 
FRINT'ZIEAE '% "Ti Yı 7 mi Zz u 
PRINT" 00 © 0 0 I" 
PRIHTT'zZIASwı m m m u” 
PRIHT'" aa © 0 _ In] 5 
PRINT’'zZIAE m rm r.' 
FRIHT" MO so “0 »0 %3' 
PRIHT''SIsSaAIı rn pr 5? 
PRINT" " f 
PRIHT'Z AED EHF GH" 
PRINT" MOHN", "NACH" RETURH 











Bei diesem Spiel ist das Ziel 
verschiedene Arten 
sehenswert ist, zu 
langsam geschrieben 


m einen, da 


Munchman 
für den CBM 3032 


wird, zum 


Progrämmchen enthält. 


Das Spiel hat drei Schwierigkeitsgrade; 
Den ersten sollten alle Anfänger wäh- 
len, der zweite ist für Fortgeschrittene 
und der dritte eigentlich nur für Profis, 
da einen das Gespenst im nu 
eingeholt hat. 

Der Schwierigkeitsgrads steigert sich 
nach einer bestimmten Zeit während 
des Spiels. Die Figur Munchman wird 
vom Spieler durch die Tasten 2,4,6 und 
8 nach oben, nach unten, nach links 
und nach rechts gesteuert, wobei er 
ständig von dem gefräßigen Gespenst 
verfolgt und unter Umständen auch ge- 
fressen wird. Im übrigen hat der Spieler 
drei Leben und kann sich durch Übe- 
rschreiten der 7000- bzw. 14000- Punkt- 
grenze noch einen ersten bzw. zweiten 
Bonusablauf dazu verdienen. Hat er 


186 


PRINT"Q" 






das Labyrinth leergefressen, so be- 
kommt er ein neues. 

In unregelmäßiger Zeit erscheinen im 
Labyrinth kleine Piks, die aber nach ei- 
nıger Zeit wieder verschwinden. Be- 
kommt Munchman die zu fressen, er- 
höht sich das Punktekonto des Spielers 
um 100 Punkte. Für jeden normalen 
Keks gibt es 8 - 12 Punkte (Zufall). 
Gleich zu Anfang fallen wohl die 
blinkenden Herzchen in den vier 
Ecken des Labyrinths auf; frißt die 
Spielfigur sie, so kann sie für unbe- 
stimmte Zeit das Gespenst auffressen, 
wofür es saftige 500 Punkte gibt. Bei 
diese Aktion ist übrigens Vorsicht 
geboten, 

Uns ist es schon mehrfach passiert, daß 
wir dem Gespenst schon sehr nahe wa- 


TsIsIsIe'' 


zu d :G05UB230 











‚ möglichst viele Punkte zu kassieren, was aber auf drei 
geschehen kann. Das Spiel beginnt mit einer Einleitung, die 
sie (wie bei den großen Arcade-Spielen) ganz 
anderen, da sie ein 


kleines Demo- 


ren, als es sich wieder zurückverwan- 
delte, sich umdrehte und unsere Spielfi- 
gur fraß; da wir nicht mehr schnell ge- 
nug reagieren konnten. 

rigens, das Labyrinth ist mit zwei 
Ausgängen ausgestatten (man kommt 
jeweils am anderen herein), durch die 
das Gespenst nicht gehen kann. Also, 
wenn einem das Gespenst mal wieder 
dicht auf den Fersen ist, nichts wie ab 
durch einen der Ausgänge! Viele Aktio- 
nen, wie Kekse fressen, Gespenst fres- 
sen oder von ihm gefressen werden, 
sind mit Tönen oder Tonfolgen unter- 
malt. Vor der Anleitung wird der An- 
fang der Fünften Symphonie Beetho- 
vens gespielt!! 
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PRESENTS" :GOSUB298 


128 PRINTTAB<?);" 
138 PRINTTAB<?);" 7,8 d W' :G0SUB238 

148 PRINTTAB<S) ;" a = :GOSLUB238 

158 PRINTTAB<S) +" a  :G0SUB298 

168 PRINTTAB<S>;" 2" 1GOSUB29B 

178 PRINTTAB<B) z" In ",GO0SUB238 

1868 PRINTTAB<8) ;" PRESS "3G0SUB230 

198 PRINTTAB<B);" 7 ax " HORLBERE 

193 PRINTTRB<SI'F = > ; 
288 PRINTTRB<S) Ua m Wa wu =" :60SUB236 
218 PRINTTRB<S) "Wa m il re" :GOSUB230 
228 PRINTTAB<(S) a m aka eu" :S0SUB230 
238 PRINTTRBE<SI "SE ad mg win" :GOSUB230 
248 PRINTTAB«S) "nes M SOFTWARE" :GOSUB298 
258 PRINTTAB<S> ; "init ug u 

268 PRINTTRB<S) ;"Wg = + 

278 PRINTTAB(<SY "We = mm id " :G0SUB2S8 
286 PRINTTRBOS SEO wu u" :GOSUE298 :GOTO3AR 
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SSH 
38 
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sl 
S2e 
536 
548 
== 5 
558 
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ro 
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r20 
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r46 
Sg 
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FÜRI=1TÜ64AsNEXxTI :FETUFRHN 
FÜruU=1TÜ2: nl 'ı" :GOSUBZFG :NESTU 
ee «NE» im 


GuoS Su ve 


Pl=1521 
FEN +++ COFTRIGHT BY +4% 
FEN +#+#+%+ HEIKO KIESSLING ++ 


FEN #4%# 7783 D-65657 LUDWUIGSHAFEN ### 
PEM ### MUNCH-MAN WERS 4.3 MCP ### 








EGIMAF« 22) 
ARFeI=-" Bi Won au B--—-- u 

HFIE2I=" R* 3 SHERHRNE IS SHRRRS RU RE BIS RR IP BRSSNSIE | 

ASCII =" DU NE-— Z eere een al Za nn n BEEREER | 

Io oe u el zei ze m m ei ee - 

HET = ER BEER BE BEER N 
Rrios?="38-----—-i $ BRIS BR BES — ES N 7 

HET DI BER — BE | 

AFCDI =" I  R  RRER | 

HE De" ------5 ERS 4 

As 10)="" ERBE RS BB I RER RR SSR 

ASIA a zur) u FR m" 

As 12) = RR ER ES BE REN 

AST EG  —— BR — Es Fe 

As 14) =1" RR I Bi RER TERRIE EER  - E | 

HEISE BE RR — - H-— — | 

Ati 159" ee ze m u m ze Zei Zi me m 

AB De RR EB Bi RR HE 

AS 1) = BR z 

AS 1I= DRS BRRNRE- — BER RE BEN Ei BR — BE | 
AtıZzu)=Aftt1)> 

PRINT" Zeig" 

0DZ=46 

Av=1 :BY=215:CV=2093 :0%=230 :EW=1668 :FV=G:AP=32767 :DW=46 :AG=1 :06=408 
FRINT"I E 

FRIHTTAB“17>"PLAY:" :PRINTTRECEIID" EEE DO MUNCH-MAN ###" :MM=6:T1=39467:7T2=594654 
T3=59466 

GOSUB2348 


PRINTTAB“14>"MEPOINT LIST:" 

PRINTTRB“ 183 " dU--+---——— > 

FORSN=33215T033223 :POKESN ‚51 :FORS=«=1TO8SE :NEH&T :POKESN, 32 :NEXT 
POKES3224 ,81 

AN$«1>="’-” = 8-12 FOINTS" PRINT" ;SPCS2>> 

FORSN=1T017 :FORS®=1T068 :NEXT sIFPEEK“ PC) <SPZSSTHENI AS 
PRINTMID$S<AN$C1D,SN, 13 5 NEXT :PRINTTRAB(Z2S>} 

POKE33224 ‚32 »POKE33225,91 :FORS*=1T088 :NEXT »POKE33225 ,32 :POKE33226 ,81 
AN$L1>=""#” = 106 POINTS" 

FÜRSN=1TO16 :FÜRSKk=1T068 :NEXT : IFPEEK PC) <PZSSTHEN 1 As 
PRINTMID$S<AHN$«1>,5N,1D > :HEXT :PRINT" 8" ;SPCC123; 

AHNt(<Z>="ERT UP ALL OF THEHSERERRERNENENNRENRRNILOCOKIES FOR NEU MAZEI" 
FÜRSH=1T0S3 :FORSK=1TO88 :HEXT :IFPEEK“ PCI <>D2SSTHEN1868 
PRINTMID$<CAHFCZDI ,SN,1> ;:HNEXT 

ANt“3>="COLLECT 7828 POINTSAGMEREEERNRRRRARNRFÜR EXTRA-RUN' 
PRIHT=PFINT :PRINT :PRINTSPC<103; 

FORSN=1T071 :FORS#=1T06% :NEXT : IFPEEK<PC) <D255STHEN1G68 
PRINTMID$<AN#<3) ,SHN,1> > :NEKT 

FÜRSN=1T03488 : IFPEEK (PC) <I2SSTHEH 18658 :NEXT 

PRINT" AeIellel" »SPC« 113 "KEYBORRD COMMANDS” :FORA=1TOSG 

ANF(4>="48-Tl THE LEFT":PRINT"M" 

PRIHTSPC« 1895 ; sFORSN=1T0O15:FORSA=1T068 :NEXTS% : IFPEEK<PCI<PI2SSTHEN I aSO 
PEINTMIDS<AN$«“4> ,5N,12 + :NEXTSN 

AN#4>="B58-T0 THE RIGHT" :PRINT" EM" :PRINTSPCC18)2; 

FORSH=1T016 :sFORS%=1T068 :NEXTSX : IFPEEK<PCYI<D2SSTHEN I G60 
PRIHTMIDS<AHS$«“4> ,5SN, 1) ; :NEXTSN 

ANS(4)=" B-UP" :PRINT"" :PRINTSPC<18); 

FORSH=1T06 :FORS%=1T068 :NEXTS% : IFPEEK (PC) <CD25STHENI1 866 
PRIHTMIDS<ANS(C4) ,SH, 1) 5 :NEXTSN 

AHS$(4)=" BS8-DüliN" sPRINT" WM" :sPRINTSPC(10>; 








a7 nn oN=1T08 :FORSX=1TOGA ENEXTSX :IFPEEK<CPCICD2SSTHENIGGR 
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1a44 
jasea 
La60 


1 
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5 
SD 


er” 
Do 
(7) 


be fe he a fd 
(3) 
vn 
—_ 
' O0 SG © 


a 
ET 
NR 
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1438 
1448 
1458 
1468 
1478 
1488 
1496 
15098 
1518 
8 

1528 
1538 
1548 
1558 
1568 
1578 
1588 
1538 
1608 
1618 
1620 
1638 


FRINTMIDSKANS&(4) ‚»SN,12; 
FRINT:FRINTSPC«12) "BBUT RTTENTIONI I" 


a FPRINT"POINTS: ";PO;TABE1SYI"1ST 


:NE*TSN 


FURS*=1T0198 : IFPEEK<PCI<>2SST 

NExT=PRINTSPC<3Y "WMAZE GHÜST eg 
FRINTSPCKSE> "WAND HE LIKES TO EAT MUNCH-MEN z 
FORS#=1TO1GBG:IFPEEK<PCI<D2ZSSTHENIA6O a” 

NE*X 5% :PRINTSPC<C 183 "WHOHOHOHOG,. .„. " 
FORSN=1T03808 :NEXT 

FRINT" IIFFICULT'Y" 
PRINT"B",SPC<C12>"cC1, 2, OR 3) 
LETAF:IFA$=""THENLOSGa 

IFA$=" 1" THENWM=2 :VUG=1 :20=G:G0T01130 

IFA$=" 2" THENWG=1 :)UM=1 :20=1 :G0OTO1130 

IFA$=" 3" THENUIG=Z :UM=1 :20=2:G0T01130 

GCOTO1leS4 

FÜRSY=1TO1988 :NEXTSY :PRINT"ZJ' :Po=c 

k RUN HISCORE :";HI 
FÜRSN=328887T032327 :POKESN ‚234 : NEXT ı ZR=8 :PZ=8 :?0=0 
FORSN=33729T033767 :POKESN, 230 :NEXT :GA=0 :G%=8 :MM=8 


? FÜRSN=32888T0337285STEP48 :POKESN , 238 :NEXT :WIE=1 175225 : 


FÜRSN=32927T033787STEP48 :POKESN, 230 :NEXT :ZY=8 :22=INTCRND«1)#20+45) ıZL=8 


A PRINT" I" 


GOSUB13SFA:REM KEKSEI I! 

GOSLUB3EBA 

PP=33583 :PM=33271 

FOKEFP „283 :MP=PEEK<PM) 

PÜKE33267 ,BV :GOSUB1419 :POKE33268 ‚BY :POKE33267 ‚169 :G0OSUB1418 
POKE33269,BV :POKE33268, 160 :G0OSUB1418 :POKEPM ‚BY :POKE33269 , 160 
FORYU=1TOWM :GOSUB141G 

IFMM=1THENIFBY=21STHEN20304 

IFMM=1THENIFEY=17BTHENZESG 
IFSF=8THENBY=215 :AG=1 :06G=48 :NL=32068 

25=25+1 :ZY=Z'Y+1 :IFZ5S=ZZTHENGOSUB2178 
IFPZ=425THENGOSUB2318:ZL=1:GOTO1218 
IFZY=S5SB8THENZD=Z0+1 : IFZD=1 THENUM=1 :WG=1 
IFZD=ZTHENUM=1 :L)IG=2 

NEXT 

FÜRSH=1TOWUG :GOSUB1608 

IFMM=2THENIFBY=215THENZ2836 

IFMM=ZTHENIFBY=1T7RTHENZ2884 

NEXT :GOTO1288 

PRINT" SMels'" :FORS'Y=1T028 :PRINTA$«S’Y> :NEKT 

RETURN | 

PE=PEEK<PC) : IFPE=255THENRETURN 

PV=PP =: IFPE=42THENPP=PP-AY:GOTO1478 

IFPE=4 1 THENPP=PP+RW :GOTO1470 
IFPE=S8THENPP=PF-DY:GOTO1476 
IFFPE=18THENPP=PF+DY:G0OTO1478 

RETURN 

IFPEEK<PP>=DIXTHEN1568 
IFPEEK(PP)=173THENPZ=PZ+1 :GÜSUB2500 :PO=PO+INT<4HRND<C1)+8) 
IFPEEK<PP>=173THENPRINT" SIE" ;TAB«7);PO 


IFPEEK<PP>=173THENGOTO1558 
IFPEEK<PF>=218THENPO=PO+189 :GOSUB2528 :PRINT" SM" »TAB<7> »PO:28S=22-16 :G0OT0155 


IFPEEK<PP>=Z11THENZ788 
IFPEEK<PP>=BYTHENMM=1 sPOKEPY,168 :FORSN=1TO1B888 »NEXT :RETURN 
GOSUJB25688 Ei 

POKEPP ,CV :POKEPV,EY: 
IFPP<>33327ANDPP<>33368THENPP=PY ıRETURN 
IFPP=33327THENPP=PP+48:G0T01488 
IFPP=33368THENPP=PP-48 :GOTO1488 

END 

REM MAZEGHOSTSTRATEGIE 

SYS826 

SF=SF-i 
GM=DZ#LCCPM-AP>/DZI-INT<<PM-AP?/DZP?? 
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ISIk 
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IS/’& 
15354 
1846 
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174 
1796 


l 


5 5 m & 


—_— 
—— 


oo ss ss sam au mic 


17246 
1954 
19668 
1978 
1336 
1976 
zaa6 
2810 
2026 
2036 
2a46 
2058 
2066 
2a78 
2094 
294 
2186 
2110 
2126 
21364 
21468 
2158 
2166 
2ire 
2188 
2196 
2240 
2210 
2220 
2230 
2248 
22508 
2260 
2278 
2286 
2236 
2348 
23108 
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KM=0Z# X ÜPFP-AP>FDZI-INTCEPF-APPFZOZ?) 
MA=GM-KMs IFMA=FYTHENAL=AY:GOTO1S7O 
HL=SGNTMA> 

MW’=FMsGA=PF-PM:GS=5GNIGR) 
IFGs=AWTHENI1FSG 


IFABSKGRA»<COW-KM>THEN1858 

PM-PM-DG =: IFPEEK «PM =DKÜRPM=MLTHENPM=MY sAD=DIG :G0SUB17498:G0TO1726 
ML=FMN+DG 

PCIKEMY „MP =:MP=PEEK“PM> :POKEPM ‚BY : IFMP=CYTHENMM=2 :FORSN=1T01898 :NEXT 
5Yr53387 :RETUFN 

IFAL=AYTHENI 736 

PM=FM+AG : IFPEEKK“PM>=DKORPM=MLTHENPM=MY:GOTO1 77 

ML=PFMN-AG RETURN 

PM=PM-+AD : IFPEEK PM) =OIXOÖRPM=MLTHENPM=NMY:GOTO1S44 

ML=PM-RAb RETURN 

>M=PM-AG : IFPEEKCPMI=OIKÜRPM=HMLTHENFM=MY :GOTO1G1® 

ML_=-PM+AG RETURN 

FM=PM+AD : IFPEEK (PNM>=DXÜRPM=MLTHEHNPM=MY:GOTO1338 

ML=FM-AD :+RETURN 

FHM=FM+RG :ML=PM-AG :RETURN 

FM=FM-AG :ML=PM+RG »RETURN 

FHM=PM-AG : IFPEEK«PM)=DKORPM=MLTHENPM=MY :AD=-AG :GOSUB1878:G0T01726 
ML_=FM+ARG.:GOTO1 728 

IFPEEK«PM+RD-ODG>=EYTHENI1F3G 

PM=PM+DG ss IFPEEK PM) =DIS THENPM=M'/ »GOTO13GE 

ML=PHM-OG:RETURH 

PM=PHM-AD =: IFPEEK «PM>=D#THENFM=MY :GOTO1F2& 

ML_=PHM+ROD RETURN 

PM=PM+RD :HML=PM-Ab sRETURN 

PM=PM-DG : IFPEEK «PM =DK THEHNPM=M"Y »sGOTO19FS568 

ML=PHM+DG:RETURN 

PM=PM-RAD : IFFEEK«FPM>=DKTHENPM=MW:GOTO1STE 

ML=PM+AC RETURN 

PM=PM-+AD :ML=PM-AO :RETUFRN 

IFGA<KMTHENZEIG 

PM=FM+DG : IFPEEK <PM>=DXORPM=MLTHENPM=MY :AD=—-DG :GÜSUB1748:G0T01728 
ML=PM-OG :GOTO1 724 

PM=PM=+AG : IFPEEK PM} =DIKXORPM=MLTHENPM=M'Y :AD=AG :GOSUB1878:60T01728 
ML=PM-AG :GOTO17Z6& 
IFPC=S1STHEHFORSN=1 TO26 :POKES9I483 „52 :FORS1I=1T028 :NEXTSI :POKESF4839 ,656 
IFFC=S1STHENFORSI=1T026 :NE#&TSI :NEKTSN 

IFPC=151 THENGÜOSUBZS?F4 

ZE=ZR+1 :ONZRGOTO2ZG7G , 2084 ,26034,2130,2106 

PRINT" SI" »TAB<C1S5> ; "2HOD" :GOTOZ1SI0 

PRINT" a" »TAB« 15) +" 3RD" »GOTO21S0 
IFFÜ>=7BGBTHENPRINT" SIR" «TABL 14) "EXTRA" :GOTO2150 

G0SUB225#4 

IFHI<FÜOTHENHI=PO PRINT" il" 

FORSN=1 T01486 :NEXT »PRINT" sel" »:GOTOS3G 
IFPÜ>=14BBBH THENPRIHT "SI" »TAB“ 14) "KTRARUN 2" :G0T02150 

GOTOZ106 

IFMM=1 THENPOKEPM,MP :MM=8:60T01228 
IFMM=ZTHENPOKEPM, 168 :MM=6 :GOTO1228 

75=Z5+1:REM SPECIALCOOKTE 

IFUE=ZTHENZ248 

FS=INT (437 #RHD (C 19+327685 s IFPEEK<CPS>=1P730ORPEEK<PS>=1S865UTHENMS=PEEK<PS) :UE=2 
IFUE=2THENZS=6 :POKEPS,218 :ZZ=INT (ZU%4RND«<12+36> :RETURN 

P5S=INT (437 #RHND«17+33278> : IFPEEK<PS>=1730RPEEK«PS?=15865B THENMS=PEEK<PS> s UE=2 
IFUE=ZTHENZ3=6 :POKEFS,218 :1ZZ=INT ( Z24#RND< 13+45> sRETURN 

GOTO2178 

POKEPS ‚MS :UE=1 :25=8 :RETURN 

FORSH=33255T 033236 :POKESN, 166 :NEXT 

POKE33265, 166 :POKE33278,1658 

FORSH=33385T033316 :POKESN, 168 :NEXT 

PRINT" "sTABL18) 5 :5N=B 





jeinIelsIeieLeintelnielm] 
SN=3H+1 PRINT" GAME BRRRN VER TTIGBEI" > :FORSI=1TO7BO NEXT 
a0) I I I IE 


PRINT"2 WIIERR:: 
FORS1=1T078 :NEXT : IFSN<=ZOTHENZ2236 





2538 
2540 
2556 
2568 
2570 
2588 
2536 


26u4E 


2940 


2870 


2896 
2988 
23168 


2920 
2930 
2946 
2350 
2368 
2378 
2986 
2330 
3988 


3816 





RETURN 
FÜRSS=1TÜ4O :NENST RETURN 


FPÜKET1,15:POKET3,S6 

s=-zF11 

FOKETZ,142:G0SUB244 :POKET2, 149 :G05UB2449 :POKET2 , 148 :G0SUB2448 
FÜKET2,177 :GOSUB2458 :POKET2, 157 :G0SUB2449 :POKET2 , 157 :G03UB2446 
FUKETEZ,157:6G0SUB2444 :POKETZ,188 :G0SUB2458 :POKET2,188 :GOSUB?448 


FÜKETZ,183:60SUB2444 :POKET2, 188 :GOSUB2448 :POKET2 , 148 :G0SUB2450 
FOKETZ2,148:G0SUB2448 :POKET2, 140 :G0SUB2448 :POKET2 ‚149 :G0SUB2448 :POKET2.211 
FÜRI=8T0335 :NEXT 

PÄKET1 ,G:RETURN 

REM SOUNDSUBROUTINE 

FÜRK=BTO1AB :NEXTE :GOSUB246A :RETURN 

FÜRK=8TO254 :NEXTK :GOSUB2474 :RETURN 

POKET2 ,&:FORK=4T075 :NEXTX :RETURN 

FÜKET2,0:FORT*=G8T0466 :NEXT :RETURN 

FETURN 

REM COOKIESOLUND 

POKETI1,16:POKET3,186:POKET2,115 :FORKY=1TO18 :NEXTXY :POKET1 .& :RETURN 
FEM SFECIALCOOKIESOUND 

FOKET1.18:POKETS, 106 :POKET2, 188 :FORKY=1T024 :NEXTX'Y :POKET1 ,0 
FORMT=1TOASENEXTKYSPOKET1,16:POKET3,1360:POKET2,.148 
FÜRK'Y=1T048 3NEXT%k'Y:POKET1 ,.A:RETURN 

REM SPACESOUND 

POKET1,165:POKET3,186:POKET2, 158 :FORK'Y=1TO30 :NEXTAY 

FÜKETI1 .&G:RETUFN 

REM FRESSOLUND 

POKET1,16:FORKY=3ET088 :POKET3, 168 :POKETZ2 „Kr :NEXTKY 

PÜKEPP ‚226 :FOR%#Y=S81T0138 :POKET3, 166 :POKETZ „Kr :NEXTK'Y 

FÜKEFP , 239: FORKY=138T0168 :FOKET3, 198 :POKETZ ‚X :NEXTXY :POKET1,O 
RETURN 

REM GESPENST GEFRESSEN ©+ SOUND)» 

IFMM=2THENMP=16# 

FÜRSN=138T078STEP-1 :PÜKEPP ,CY :POKET1 ,168:POKET3, 100 
POKET2,SN :FOKET1 ,G:POKEPP „MP :NEKXTSN 

FÜRSN=1TO2E NEXT :POKET1,165:POKET3, 196 :POKET2 „55 
FÜRSN=1TO4G :HEXT :POKET1 ,8 :FORSN=1TO2G NEXT 
PCKET1,15:POKET3,144:POKET2,78:N_=327657 

FÜRSN=1TOS6 :NEXT :AG=1 :06=44 :BY=215 :PO=PO+SAG :ML=32000 
PRINT"SIS" »TAB<7> +PÜ :POKET1,0 

IFMM=1 THENPOKEPM,MP :MM=4:GOTO122G4 
IFMM=ZTHENPOKEPM, 1686 :MM=6 :GOTO12264 

5SOTO122G 

REM COPY-SOUND UND SCHNSTIGES 

SF=32 :BY=174:AG=-1 :0G=-44 :ML=32767 

FPOKET1 .,15:POKET3,186 :PCIKET2 ‚34 :FORSN=1TO1E:NEKXT 
POKETZ,116:FÜRSN=1TO16 :HEXT :POKET2 ,86 :FORSN=1TO1GM :NEXT 
POKET1,8:G60T01556 
FORMC=3268T09324 :RERADAS »POKEHMC „AS :NEXTMC 

RETURN 
CAHTRA164,1,162,2069,169,160,235,161,128,2408,6,141,161,128,76,78 
DATA3,149,252,3,236,198,128,240,6,141,198,1298,76,92,3,148 
DATR2S53,3,236,153,131,.240,6,141,153,131,76,106,3,140,254,3 
DATRA2368,136,131,2460,4,141,190,131,96,140,255,3,36,169,211.168 
DATA1,204,252,3,249,3,141,161,128,294 ,253,3,240,3,141,198 
DATA128,204 ,254,3,24@,3,141,153,131,204 ,255,3,240,3,141,190 


DATA131,96,0 | | 
FORSN=323281033265 : IFPEEK<SN)<>238THENFOKESN, 173 


NEXT 
FORSN=33274T033323 : IFPEEK<SN? <>238THEHNPOKESN,.173 


NEXT 
FORSN=333347T033361 s IFPEEK<CSN><>DZ3AGTHENPOKESN, 173 


HE#T 


FORSN=333681T033767 : IFPEEK“SN> <D>238THENPOKESN, 173 
| NEXT 


PZ=8 :RETUFRH 
FÜRSH= 1926701923 :POKESH ,B :NEXTSH 
POKE32329 ,211 :POKE32966 ‚211 :POKE33689 ‚211 :POKE33726 ‚21 1 :RETURN 
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Wallstreet 


| 
| 
für den Apple Il 
n die Luft der 


Das pulsierende Leben in einer Börse, läßt uns doch auch ein bißche 

eroßen, für manchen wohl für alle Zeit uneinnehmbaren Geschäftswelt 

schnuppern. 
Es istschon beeindruckend, sowohl für | len und somit richtungsweisende | bengebiet eıneı Börse hineınzutasteı 
den Laien. als auch immer wieder für | Gleise, für das Wirtschaftleben jedes und selbst einmal Ihr Glück 27 


versuchen 

Wir können Sie jetzt eigentlich nuı 
noch bitten. den Ratschlag des Erstel 
lers dieses Programms zu befolgen! 


den Profi. wenn innerhalb kürzester | Landes. gestellt werden. 

Zeit mit horrorenden Summen Jong- Mit dem Spiel ‘Wallstreet möchten 
liert wird. Wertpapiere in ihrem Kurs wir Ihnen Gelegenheit geben, sıch mit 
durch An- oder Verkaufsteigen und fal- Hilfe Ihres Computers in das Aulsa- 


Yv z ‚.ENWEL 
E YA* air 
REM 
EM 

- REM 

- or 

[ |:WE = AI = #75 
B = uk 

126 FORN= | T03 

156 READ As(N 

140 NEYT N 


Si DATA IBEM,RCA,LBJ,ABC,CBS 


180 4 - |] 
’0 HOME 

I80 PRINT "SETZEN SIE SICH BEQUE 
M AUF EINEN STUHL. 

190 PRINT "HOLEN SIE BITTE TIEF 
LUFT UND ENTSPANN-"s PRINT 
EN SIE SICH. ' 

20% PRINT "SOBALD DIESER RECHNER 
UEBER EINE TELE-": PRINT "F 
DNLEITUNG MIT DEM ZENTRALRETC 
HNER IN”: PRINT "NEW YORK/US 
A VERBUNDEN IST GEHT DAS": PRINT 
SPIEL WEITER.’ 

216 PRINT 

22@ PRINT "SIE ERHALTEN DANN DIR 

» EKT UEBER DIESEM": PRINT "BI 

LDSCHIRM DIE NEUSTEN DATEN A 
US NEW "ı PRINT "YORK. SIE I 
OENNEN DANN AUCH UEBER " 

2360 PRINT "DIESES TERMINAL IHRE 
IWER-)IKAUFSAUF -"ı PRINT "TR 
AEGE ABWICKELN, “ 

24@ PRINT :ı PRINT "BITTE DRUECKE 
N SIE NACH JEDER EINGABE“: PRINT 
"DIE «RETURN TASTE.“ 

SG PRINT ı PRINT "BITTE HABEN S 
lE ETWAS GEDULD, BIS DIE"ı PRINT 
"LEITUNG NACH NEW YORK STEHT 
.": PRINT 

2606 FOR N = I TO 16060 

270 NN = RND (1) 

2B0 IF NN « „GB THEN FRINT CHRS 

ID: 

2906 NEXT N 

300 HOME 

z10 PRINT TABi 15) "WALLSTREET" 

326 PRINT TABI( 15) Yeusse=mzeee" 

170 PRINT TAB( 16)"FRANZ MATTES 

1982/88": PRINT 
740 PRINT "ES WERDEN FOLGENDE T] 
TEL GEHANDELT :"ı PRINT 
zs0 PRINT "IBM INT.BALLISTIC MI 


n 


SSILES” 

66 PRINT "RCA RED CROSS OF AME 
RICA” 

76 PRINT "LBJ LICHTENSTEIN Bim 
RAP £ JOKE' 
MINT "ABC AMERICAN BANCHUF 

co.’ 
90 PRINT "CR5 CENSURED BO ar 


Ur 

Ace Pin! 

4406 ILASH s PRINT “ACHTUNG ı 
“DIE KURSTENDENZEN AENDERN": 
FRINT "SICH WAENREND DES 


1“ 


lELS, 
42% NORMAL 





“INT ı ir FULH JIEDC- TRA 
NSArTION VERRECHNE! DE 








anna han hir ruhe 


DEREK ALTER TER EEE BT LT LT FRE 


5(2) = BSıVi2) = B8 
= = et 1 _ A 

= 14 = 140 u = 140 

- = ala = = O0 

5s?0 FOR N = | TO 5ı51N) = Sın) ı* 
INT « RNL ı + 300 +1 
100 NEYT N 

500 FEM 

&1u REM „ann 2 2a nu eher 
% 

&20 REM 

450 REM KURSTABELLE 

640 REM 

£&50 REM ....„unnrnunureeeeeee 
“ 

650 REM 

&70 HOME 

86 PRINT "AKTIE PREIS VORTAG 

STUECK" 
696 PRINT 


7008 FORN= | T05 
71G PRINT Asin)s TAB( S)iSI(N)i TABI 
I&)sViINnIı TAB 27):5Kı N) 
72060 NEXTN 
730 PRINT 
740 AV = Al 
750 Al = 
76&6 FORN = I TO SsAIl = AI + Sin 
)ı NEXT N 
770 VA = AI - AVıVA = INT (VA » 
186) / 168 
780 PRINT "NEW YORK AKTIENINDEX 
ı "ıAI 
79@ PRINT "VERÄNDERUNG ZUM VORTA 
G : "VA 
80060 PRINT 
BsıoW=% 
826 FOR N = I TO S:ViN) = S{N)s NEXT 
N 
830 FORN = 1 TO SıW = W + SKIN 
# S(N): NEXT NK = W+D 
BO K= eK W+B ha 
850 PRINT "BARGELD .” 
6 
846 PRINT "WERT DER AKTIEN 8 "I 
” 
876 PRINT "GESAMTKAPITAL or 
K 
886 PRINT 
89% PRINT “BOERSENSCHLUSS” 
900 PRINT sozsseszzmmesse" 
910 PRINT 
926 INPUT "GELESEN ? "ıJAs 
930 IF WE = 5 THEN GOSUB 1450 
946 IF D = 14 THEN GOSUB 1826 
950 WE = WE + lb =D+ lıl= 1 + 
' 
966 HOME 
97e PRINT "BOERSENDEFFNUNG" 
930 PRINT (sunznsmzzmunzen" 
90 PP = Aub (1) 
1060 FF = PP + „a2 
1018 IF PP < „09 THEN FLASH ı PRINT 
"UM SPEKULATIONEN 7U VERMEID 
EN WERDEN *; PRINT "HEUTE AL 
LE KURSE AUSGESETZT.” NORMAL 
ı PRINT ı PFINT : FOR TV = I 


TO in6ı FRINT ChHks (Tits NER 


1Y 
1020 Ir PP < „69 THEN 938 
1050 REM 
ıoau TEM wunnunnnnnurienenene 
1056 REM 
10606 MEM NEUE KURSE FESILEGEN 
10679 PEN» 
ı080 REM wnönnnnnnuenenraneeen 
1090 KEN 
1100 IF 7 = 6 THEN GOSUB 173% 
11a IF 2= & THEN I = 6 GOBLUB 
1336 
i FORN= I MS 
(126 IF Tin) = 0 THEW I106 


i ı,5iW =“ I EL we 
on LO 
1186 AF ZZ ‚2= TUEN SGIN) = Sin 
+ ii md ıl , j » SIN n 
115m) = INT IıSın) » jaw 
100 
1170 IF SINN 0 THEN Sin) = INT 
(It AND (ji) ® 10 + 5) » 100) / 
Do 


1180 GOTO 1230 

1190 112 = RuD (1) 

1200 IF 22 < = „25 THEN 56(N) = 
SIınN) + { RnD (1) ® ‚ag » SIN 
)) +1 

12108 IF 22 > .25 THEN Sin) = 5IN 
) - UERND (1) « „I » Sın) + 
| 

1220 IF SIN) < © THEN SIN = & 

12308 SiN) = INT (Sını » I@0) / 1 
oo 

1240 NEIT N 

1250 GOTO 1440 

1260 REM 


1270 REM #ununnannuennneerener 
1298 REM TENDENZEN 
REM 
1318 REM #wunnnunnunnnnunrr ran 
REM 
1338 FORN = 1 T05 


1348 T(N) = INT ( RND (1) + „5) 
1350 NEXT N 


1360 RETURN 

1370 REM 

1380 REM s#annessnnnunennnuunter 
1396 REM 

1406 REM TRANSAKTIONEN 

14108 REM _ 

14204 REM #wnuunnnnnnrrnneeeen 
1430 REM 

14468 PRINT 

71450 FORN = 1 T0 5 

146% PRINT 


1470 PRINT AsSIN) 

1480 , PRINT "( KURS VOM VORTAG ; 
s"rVinds" )* 

1498 PRINT "STUECK IM DEPOT : "5 
KIN)” "t: INPUT ST(N) 

1500 GE = (1.35 #« ABS I5T(N)) 
Sin) / 100 

15108 IF STiN < > INT (STIN) THEN 
INVERSE ı PRINT "SIE WITZEO 
LD"s CHRS (7): NORMAL + GDTO 
1476 

1520 IF STIN # SiN) + GE > B THEN 
W = INT (160 ®« ( ABS (B - 
IGE + (STIN) « Sind) ))) 7A 
00 

1530 IF STIN) » S{iN) + GE > B THEN 
INVERSE ı PRINT "SIE HABEN 
NICHT SO VIEL BARGELD”: PRINT 
"SIE HABEN UM # "ıllVvı“ UEBER 
Z20GEN.*: NORMAL ı GOTO 1476 

1540 IF STiN) < 6 AND SKın) < ABS 
(STINI) THEN IMVERSE ı PRINT 
"SIE HABEN NICHT 5D VIELE Ak 
TIEN":STIN) = 0: NORMAL ı GOTO 
1470 

1350 IF STINI < 0 IHENB=B+ ABS 
iSTiN)) ® Sin) 

1560 IF STiNn > 0 IHENG =B-5 
Tın) » Sım 

1579B=B - GE 

1580 SKIN) = KIN) + STIMW 

1590 B = ]1NT (B « 180) ; imo 

1666 HOME 

1616 PRINT "KESILICHES BARGELD ı 
°"ıB 

1620 NEITN 

1650 HOME ı GOTD #70 

1640 REM 

laSo REM nnennsnnmnannnnnnherne 





PETTTEIELITTEZ ZI ZZ ZZ I 


KENNEN ESCH _ 


Fr 151 s'uiIeENn “ık 
BISSCHEN": Pril 
M 

17a» PRINT 


ı 750 FRIN 


I750 PRINT "WENN SIE 2 


ETIT BEENDEN wU PRIMT 
EN, Dim GEBEN Sit TIE 
EIN 

17a Prim wenn SIE WEITER »# IE 
LEN WOLLEN GEBEN": FRIMT "51 
E 1 EIM.' 


i7B0 GET EN 

17906 IF EN = 0 THEN 204% 

18066 IF EN = i THEN RETURN 

1810 REM 

1820 REN aunnannnnuneeeeeere 

iB5@ REN 

1840 REM DIVIDENDE 

IB REM 

1860 PEN Peer ee Teen 

18706 REN 

1BB08 D =» % 

1890 HOME ı PRINT CHRS 711 Os 
1T)8 CHRS IT)ı Os 1711: HOME 


19808 PRINT "DIVIDENDENAUSSCHUETT 


UNG* 
1916 PRINT *ersmommsiczmmzuzmumzae 
==="; PRINT 


i926 FOR N = ı T0 5 

1930 DV = AuD (1) #6 + 1 

1948 DV = INT (DV » 160) / 106 

1950 AS = DV » 5X In 

1960 IF SKIN) = © THEN 19 

1976 PRINT "SIE ERHALTEN FUER Is 
RE "SKIN)" "Asin)ı PRINT "AK 
TIEN #”"AS" DIVIDENDE” 

1986 SIN) = Sin) - DV 

19906 B =B + AS 

2000 PRINT 

2016 NEITN 

2026 INPUT "GELESEN 7"i.JAS 

2050 RETURN 

2048 REM 

2050 REM mannuunneunutenns 

20606 REM 

2076 REM SPIELENDE 

20680 REM 

2090 REM wenmnansnensnunn 

2100 REN 

2110 HOME 


2128 PRINT * Jjmmumzzazzommmunsen 
srzemzemmmmeseemen] 


2136 PRINT "I 


L? 
2148 PRINT "I SCHEDK NR. 178351 
5” 
2150 PRINT "I 
1" 
2160 PRINT “I DIE Ram-Base NEW v 
Om TAHLT I" 


2170 PRINT "1 GEGEN DIESEN SCHEC 


E i 
2186 PRINT "I AUF KEINEN FALL DE 
” N BETRAG VON .? 
21m PRINT *| 
I* 
22008 PRINT "1 . zı TaBı 
sy” 
2210 PRINT "1 
5 
2220 PRINT “I UNTERSCHR. 
DER COMPUTER g” 


22 PFRIn! "1 
5% 

2248 PRINI *Jamunzuuaunanununaun 
Zsunzzansasasas-zze| 

zz ED 

228 W = INT (100 » ( ABS ı\B » 
(GE +» IST oe Baar 
0 

2270 INWERSE ı PRINT "EIE WEN 
NICHT SO viEL BEABELD, * 

2288 PRINT ’SiE WAREN um 6 "un" 
VEBERIOGEN. 

22m nom ı GOTO 140 











Spider 


für den Apple Il 


Nach Einladen des Programmes, erscheint auf dem Bildschirm die Aufforderung ”in- 
sert coin”, worauf eine beliebige Zahl das Programm startet. Am oberen Bild- 
schirmrand erscheint eine sich, per Zufall, horizontal bewegende Spinne. Unter dieser 
werden drei Nester ausgedruckt und das vom Spieler zu steuernde Raumschiff wird am 
unteren Rand abgebildet. 


Die Spinne legt Eier, welche, falls sie 
das Nest treffen, in diesem lie- 
genbleiben, andernfalls fällt das Ei zu 
Boden. Wenn ein Nest mit drei Eiern 
angefüllt ist, entsteht in ihm eine kleine 
Spinne. Sind nun wiederum alle drei 
Nester von den Spinnen besetzt, begin- 
nen diese, zwischen sich ein Netz zu 
spannen, welches, wenn es fertiggestellt 
ist, die Spinnen veranlaßt zu Boden zu 
fallen, um das Raumschiff zu 
vernichten. 

Dieser Vorgang kann durch das Raum- 
schiff, folgendermaßen verhindert wer- 


heraufbauen. Eine Leitersprosse ent- 
steht, wenn Sie, unter einem Nest 
stehend, die Schuss-Taste”s” betätigen. 
Es ist nur möglich, eine Sprosse hin- 
tereinander zu bauen. Sie müssen, um 
die nächste Sprosse auf die gerade kon- 
struierte zu setzen, erst unter einem an- 
deren Nest eine neue erstellen. Wenn 
die Leiter bis an das Nest heranreicht, 
wird dieses ausgeraubt, das heißt, in 
ihm liegende Eier/Spinnen werden 
gelöscht. 

Falls ein, von der Mutterspinne, gewor- 
fenes Ei bis zum Boden gelangt, werden 


sen werden. Die Fallgeschwindigkeit 
der Eier erhöht sich mit jedem Nest- 
ausrauben. Eine weitere Gefahr geht 
von den kleinen Spinnen aus, welche 
schießen, falls sich die Mutterspinne 
über ihnen befindet und ein Ei wirft 
Punktsystem: 

Jeder Schuss kostet Punkte. Für jedes 
abgeschossene Ei erhalten Sie Punkte, 
wie auch für jede errichtete Leiter- 
sprosse. Hohe Punktzahlen erreichen 
Sie, wenn ein mit einer Spinne besetztes 
Nest ausgeraubt wird. 

Das Raumschiff wird mit den Tasten 


den: Die Nester können ausgeraubt alle Leitern zerstört. Ein Ei kann j- "I" (links), “” ( 
werden. indem Sie Leitern zu ihnen doch auf seinem Flugweg abgeschos- (Schuss) gesteuert 
1 HOME Ei 
2 SCALE= 1i 146 WTRAB 21: PRINT "#84" 
32 ROT= 8 158 HGR 
4 PRINT "PLAY SPIDER’S REVENGE". 166 SCALE= 1: ROT= & 
PRINT "INSERT COIN!". FLASH 178 HCOLOR= 7 
PRINT "slolakaataltaktktakepeietehsk 171 DRAU 4 AT 19,20. DRAU #4 AT 1 
Anger ee" 20, 20: DRAW 4 AT 259, 38 
8 GOSUB 35608 25a GOSUB 56086 
9 GET JKL 218 GüsuB 559 
18 HOME 238 IF PEEK ( - 16384) = 211 THEN 
28 DATA 7:8, 16, 8, 61, 8, 72.8,82,6 GoSsuB 5939 
‚936, 8, 127, 8, 142,8 246 GOSUB 858 
25 DATA 63, 58, 58, 58, 58, 63, 63, 58 2sa IF INT <A * 18) = 8 AND Si + 
‚54, 54, 41, 32, 36, 41, 45, 42; 42, s2 + 53 = 3 THEN GOSsuUB 1988 
45, 45, 45, 13, 24, 13, 24, 45, 21, 5 
4, 14, 12, 24, 36, 36, 28, 63, 63, 15 268 GOTO 208 
‚24, 15, 24, 15, 24, 15, 24, 623,08 soa8 A = RND (8) 
38 DATA 28, 18, 13, 24, 45 sol IFL=1 THENZ=xX 
408 DATA 45, 34, 8, 24, 51, 8 582 NHCOLOR= 8: DRAW 1 AT X,08:. DRAW 
45 DATA 28, 58, 41, 45, 13, 24, 12, 24 2 ATX - 13: HCOLOR= 7? 
‚51,08 583 POKE 768.188. POKE 769,2: CALL 
sa DATA 14, 14, 45, 45, 45, 45, 45, 45 778 
‚45, 45, 45, 48, 32, 0 se5 IF A> 085 THEN 520 


55 DATA 238, 28, 38, 63, 15, 24, 23, 54 518 X = X + 108 


‚20, 14, 45, 45, 48, 45, 45, 45, 42, 512 IF x > 268 THEN X = 11 
45, 13, 24 515 GOTO 530 
65 DATA 28, 36, 28, 23, 63, 15, 24, 15 520% =X - 10 
‚24, 7,0 522 IF x < ı1 THEN X = 268 
708 DATR 28, 28, 36, 12, 12, 12, 21, 21 538 DRAW i AT X,8: DRAU 2 ATX »- 
‚21, 54, 38, 30, 28, 6,8 4,3 
75 DATA 45, 45, 52, 3280, 20, 54, 54,14 548 RETURN 
‚14, 62, 63, 63, 63, 63, 39, 12, 12, 558 HCOLOR= 8: DRAW 5 AT M,N. HCOLOR= 
36, 36, 15, 24, 15, 24, Du ? 
85 DATA 45,45,8 568 C = PEEK (< - 16384) 
1088 FOR I = 7676 TO 7676 + 168 a IC ABS (9,=) + 428 nme 
118 READ S H=N + 18 
128 POKE I,S s75 IF C = ASC ("L") + 128 THEN 
128 NEXT M=M - 10 
148 POKE 222, 252: POKE 233,29 588 IF M << 18 THEN M = 269 
141 L=1:5=2 562 IF M > 269 THEN M = 19 
142 M = 148 ST = 4 585 DRAU 5 AT M,N 
142 N = 151:RS = 4 538 RETURN 
144 / = 9:NE = 26 53 P=P-4 
145 %X = INT (C RUND (8) * 2008) + 3 6008 IF RBS <M - 21) < SAND G = 








a 
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wre ru. 4 >rP 
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# 





ad THEN 656 
sid IF ABS <M - 141) < 5 AND H 
0 THEN 7a 


628 IF RBS (CM — 261> < 5 AND K 


a THEN 75 
8630 HPLOT M,4151 TO M 22 
832 FOR I = 48 TO 18 STEP — 2 
633 PÜKE 768, I: POKE 769,4 ERLL 


eo 
u 


624 NEXT I 

635 IF ABS Cc2-M <6 THEN = 
a: DRAU 6 AT ZY:Y = 29 - 
sSTZ=X%:P =P + 49 

648 HCOLOR= 8: HPLOT M,151 TO M, 
32: HCOLOR= 7 

645 RETURN 

es D =D +1 

6553 P=P+D + 15 

655 POKE 768, 255 - D * 28: POKE 
"69, 28: CALL 778 

668 DRAW 7 AT 21,151 - D x 11 

68 G=1:H = B8:K=9B 

658 IF D= 11 THEN 16088 

698 RETURN 

"@E=E +1 

-reaP=P+E + 15 

r85 POKE 768,255 - E * 28: POKE 
r69, 28: CALL 778 

r18 DRAW 7 AT 141,151 - E * 11 

r28.G=8:H =1:K=9 

38 IF E = 11 THEN 1708 

748 RETURN 

‚-sseF=rF+1 

r-Ss2P=P+F +15 

755 POKE 768,255 - F * 29: POKE 
769, 28: CALL 778 

768 DRAW 7 AT 261,151 - F x 11 

G=85:H=285d:K=1 


778 
788 IF F = 11 THEN 1888 t 
7938 RETURN 
888 HCOLOR= 8: DRAW 6 AT Z,Y:, HCOLOR= 
7 . 
se L=1 
885 IFSi=1RAND ABS <Z - 2I« 
11 THEN 2208 
886 IF S2 = 1 RAND ABS <Z - 141) 
< 11 THEN 2398 
887 IF S2= Ai RAND ABS <Z - 261) 
< 11 THEN 2498 
s88L=98 
818 Y = Y + ST 
828 DRAU 6 AT Z,Y 
8308 IF Y > 158 THEN -HCOLOR= 8: DRAW 
EAT ZY:VY= 29 - 3#STL= 
1: GOTO 1598 
848 IF Y = 29 AND ABS (<Z - 21) < 
11 THEN EL = Ei +1Y7= 239 - 
3 # ST:L =1: IF Ei = 3 THEN 
998 
850 IF Y = 29 AND ABS <Z - 141) 
< 11 THENE2=E2 +1:Y= 2 
9-23. ST:L=1: IFE2 = 2 THEN 
950 
866 IF Y = 29 AND ABS <Z - 261) 
< 11 THEN E23 - 





47 RETURN 

>28 HCOLOR= 8 

955 FOR I = 131 TO 132 

968 DRAW 6 AT I, 29 

978 NEXT 

988 HCOLOR= 7 

985 GOSUB 23298 

298 DRAU 1 AT 141,21. DRAU 2 AT 


140, 24 
994 E2 = 4 
995 S2 = 1 


93296 RETURN 

180808 HCOLOR= 8 

1885 FOR I = 251 TO 272 

18618 DRAL 6 AT 1, 29 

1828 NEXT 

1838 HCOLOR= 7 

1848 DRAW 1 AT 261,21: DRAW 2 AT 
260, 24 

1043 GOSUB 2208 

1944 E2 = 4 

19845 532 = 1 

1847 RETURN 

1588 HCOLOR= 8 

1518 FOR I =11 TT1i1STEPr -1i 

1512 PRINT : PRINT 

1528 DRAW 7 AT 21,151 - I 11: DRAW 
7 AT 141,151 - I = 11: DRAW 
7 AT 261.151 - I = 11 

1525 POKE 768, I * 28: POKE 769,23 
8: CALL 770 

1528 NEXT 

1548 D=98E=BF 

155986G=9H=9%K 

1555 GOSUB 23249 

15608 RETURN 

16088 HCOLOR= & 

1618 FOR I = 11 TO 32 

1628 DRAU 6 AT 1,29 

1625 POKE 768, <I + 9) * 5: POKE 
769.5: _CALL 778 

1628 NEXT 

1648 FOR I = 11 TTiSTEP -ı 

41658 DRAW 7 AT 21,151 - 1 = ı1 

1655 POKE 768,208 - I * 18: POKE 
769, 28: CALL 778 

1668 NEXT 

1662 IF Si =1 THENAN=AN +1 
P=P+RAN x 58 

1665 ST = ST + 1: IF ST> 9 THEN 
ST = - 

1666 GOSUB 2198 

16708 Ei = 851 = 8 

1672D=®8 

1675 HCOLOR= ? 

1688 RETURN 

1708 HCOLOR= ® 

1718 FOR I = 131 TO 132 

1728 DRAW 6 AT 1,29 

1725 POKE 768. <I - 111) « 5: POKE 
769.5: CALL 770 

1728 NEXT 

1748 FOR I = 11 TO 1 STEP -ı1 

1758 DRAU 7 AT 141,151 - I # 11 

1755 POKE 768.208 - I = 18 POKE 
769, 28: CALL 778 

1768 NEXT 

1762 IF S2 =1 THENAN = AN + 1 
F=P + An « 58 

1765 ST = ST + 1 IF ST> 93 THEN 
ST = 9 

1766 GOSUB 2108 

1778 E2=952 = 

173 E=08 

1775 HCOLOR= ? 

1780 RETURN 

1866 HCOLOR= 6 

1818 FOR I = 251 TO 272 


=®8 
=8 











> FÜRÜU=SOL IH TUS8EI28  FÜREO, i : NEXTO 


> FÜRI=SSIZITU3SEISI FÜKEU,B'NEKTO 
08 A=7T300 'K=« INTCRNDLIIKISI+TIR22H7 EU | B=7B6 = INTCRNDCII#IEI+B)WZZ+7EBO-1 Em 


ner’ rVe Leii AU=3'b=-399422 HMi=38zu 
iio As="FFrFrrrFrFFFFFFFFFFFFFF” 
ilS Be SKKEKKKKKKKEKKKKEKKEKKK 
lEU FÜREN: SS: FÜKER+I, 4: POKER+2,5 
isyu FULKESBST I. 2532: Fl=d 

ı355 REM HAUFTFROGRRAMM 

iu J2=-((CFHANDis?)=B) :A=h-J2:B=B-J 
i4i PÜKErOO3,17:PFÜKE’/BIB, Ii8 : POKETI 
145 FRINT ae" - PRINTAE 

i#4c PÜKE388753,5:FÜOKESEBTT ,Zi12 
i4r IFHA<ST’rIBTHENA=R+I : Beb+i 

158 PÜKER+3, 68: FÜKEB+1.,8:FÜKER, 3’ POKER+1, 4: POKER+2,5:'PÜKEB, 7 

154 IFR+C-13=A+i ORR+C-19=-A+ZORR+C-19=A+3THENGNSUB’ O8 

i55 FOKER-1,8:POKER, &:FOKER, 12: POKER+i, i3:R=eR+1 

i56 IFR=7724THENFÜKER, 6:PüKER-1,68:R=7702:6=33422 

157 IF&U=BTHEHNGOTÜSUE 

i6sS FRINT'RERCIDEA: "KU TIBRPUNKTE: "ri 

178 J1=-((FPANDSI=B}: B=eb-Ji#H22: POKEB+ZZ., 8: POKEB, 7 

i73 IFX+E=BTHENFOKEB, 18: POKE36877 : 8: POKE3E87B, 15: FPOKE36874, 135: PU=PU+5  E=21 

175 IFE=21 THENFOKEX+E-1.8: FOKER+E,9:%=CINTCRND<CI ALDI + IH E5U El 

1868 FÜKEX+E-1,8:POKEKX+E,09:FÜKEX+E, 1:PÜKE#H+E+1, 2: E=E#1 

151 PÜKER+C-21,08: PÜKER+C, 16:C0=°+19 

132 IFC=117THENFOKER+C-19,9:C=22:POKE7744,0: FOKE7745,8:POKE7764,8:POKE7783,8:POK 
E’5062,5 

195 DD=37154:Pi=37151:P2=371352: POKEID, 127: FP=sPEEKCFZ>ANDI125 

200 JQ=-(F=B) :A=A+Jß'B=B+J8 

285 POKEDD, 255:F=FEEK(PI) 

267 FÜKER-1,68:POKER,&:FOKER, 14: FÜKER+1, 15 'ReR+i 

2893 IFR>D7BBSTHENR=R-1:B=B-1 

218 POKER-2, 8: POKER-1,8:FOKER, 8: FÜKEB-1,08: PÜKER, 3: POKER+i, 4: POKER+2,5:POKEB, 7? 
215 PRINT Wseiam'" :PRINTE#F 

258 J3=-(<PRAHNDB>=B) : B=B+J3#22 : FOKEB-22,8:FÜKEB, 7 

256 IFR=7724THENPÜKER,&:FÜKER-1,8:R=7782 

273 IFr-F=BTHENPOKEB, 18: POKE36877, 8: FOKES6878, 15: FOKE3687 4, 255: Pl=Pll+5:F=21 

275 IFF=ZiTHENPOKET-F,B8:POKE'T-F+1,9:'rT=(INT(RNDCIIWMIE) +O)H22+76658-1:F=D 

288 PÜKE"Tr-F+1,8:POKET+F,8: POKEr-F,9:POKETr-F-1,6:F=F#+i 

388 GOTU14U 

z08 PÜKER+1.,8:POKER+Z2,8: POKER+3, 8: POKEB+1,8:FPOKER, 3: FOWER+1, 4:  POKER+2,5:POKEB; 7? 
RETURN 

656 REM UNTERROUTINE 

685 PRINT'AZ , 

618 PRINT IKEUIS IE HABEN"PU"PUNKTE " 

6258 PRINT" BWERREICHT." 

621 IFPUDHITHENHI=FÜ 

625 FRINT"'ABBHIGHSCOHRE: "HI 

636 FRINT'"MUMBBIDRECKE ’P’" 

648 GETSA#: IFSAS<C>"P"THENGAD 

856 GOTOBS 

768 KlU=ku-1 : POKE26874,08 : POKE3SEE77,8:FORT=255T0O135STEP-1 : POKE36879, T : POKE36EB7&8,T: 
NEXTT 

70eıi POKE36573, 232 : FOKE36376,8 RETURN 
808 REM SPIELANLEITUNG 

8sıo PRINT" Wan BFISHINGE Win" 
820 PRINT’ MMIMWERSUCHEN SIE SO " 

838 PRINT"M/IELE FISCHE ZU FRNG-" 
848 PRIHT"WEH WIE MOEGLICH.” 
3580 FRINT"MUDIE STEUERUNG ERFOLGT" 
868 PRINT"MIT DEM JOYSTICK." 
878 PRINT" Mn AURUCKE /F’" 
8508 GETR#$: IFAS$<>"P'THENGSDO 
838 RETIURH 
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Auftrag für Gelegenheitsanzeigen in Homecomputer 









An Homecomputer Parmaund Aurosee 
Westring 59c 
Postfach 620 — 0 Abo.Nr 
3440 Eschwege 
Unterschrift Ich zahle sofort nach Rechnungserhalt. Datum 
Unter der Rubrik „Kleinanzei- 
gen“ veröffentlichen wir Ge- Ich wünsche folgenden Text zu veröffentlichen 
en BEIERIEERENZEREEZEREEENEEERERENEN 
Kauf- und [| 





kaufsangebote, 
Tauschgesuche, Kontaktauf- III III III II ATS I ST I 
nn SELF EREEREENENEREUDEHEREREEEEENE 
tausch usw. 1} 
a hd IA ER I I I 
Preise für „Kleinanzeigen“: 
Private Gelegenheitsanzige [II III I I I JS I IS ATS SS I I I 
ee RR en a RE En En EN ER EN ER 
MwSt. Chiffregebühr je Anzel- 
ge 10,- DM. ee eh 
Gewerbliche Gelegenheitsan- [III I I I I I I I II II I I I IL I I LI LI | 
zeigejeDruckzelle7,—DMink. | | | | | | | | J J II III II III III TI III I I I I] 
MwSt. (dürfen nicht unter Chif- | 
fre erscheinen). I IT I 

















Biete an Software 





2 0 a8 2 a RERE T 


- Achtung! F 
r Spectrum! TI 99/4A 
. Kostenlos {l) 2 
* senden wir Euch unser Clubmagazin * 
* mit vielen Tips und Tricks, Testberichten * 
* und Listings! Softwarebibllothek mit 
* v. Programmen vorhanden! (Rückporto!) 
* Achtung! Tauschpartner gesuchti 

" Für 5,- DM-Schein erhaltet Ihr eine tolle * 
* Kassette mit 10 Splizenprogrammen " 
* und unser Magazini Schreibt heute * 
* noch an! I. Scheitza, Wilhelmstr. 46 * 
* 4590 Herne 2| Tauschkatalog wird * 
= automaliscb mitgeschict! | * 


<— se a RR RB 





@ TI90/4A | @ Super-3D-Spiele 
Völlig neue Action-Games! Grafik - 
Sound! Dateil Ab 1,- DM/Info 1,- DM 
C. Wurzer, Grüntenweg 14, 85 Nürnberg 





C-54 Software für 

Partienarchiv Eröffnungstraining 

usw. Info für -80 Pig. Rückporlo 

Volker Stürcken,Zedeliusstaße 20 
2940 Wilhelmshaven 


Schachspieler: 





Commodore-CBM-64: Alle in BRD ver- 
fügbaren Pr. lieferbar incl. Anleitung 
soweit erforderlich. Topangebote mil 
Topservice, super! Telefon: 0281/62205 
oder 64613, Liste vorhanden. 
Tr ee ne 
TI-98/4A: Bior., Bruchreohnen, Bundes- 
liga, Spiele und diverse Programme 
preiswert. Info gegen Rückumschlag 
B. Knedel, Tulpengasse 16, 3171 Wey- 
hausen, Telefon: 05362/71187 


———————— 


VC-20 Verkaufe meine gesamie 
Software für 150,- DM Wert 10.000,- DM 
15 Disketten oder auf Kassette 
Telefon: 0208/840811 ab 19 Uhr 
er er 
© Datencassetien Software VC-20 © 
Broschüre 1/84 anfordern 2- DM im 
Brief (werden angerechnet) von 
© PS Gerhersiraße 20, 5220 Waldbröl © 





CBM-64 CBM-54 CBM-64 CBM-64 CBM-64 
Software für Anwendung und Spiel 
preiswert abzugeben. Liste von 
S. Donnerberg, Niebuhrstraße 36 

5300 Bonn 1 





“= y6-84 * * Über 300 Programme aus 
allen Bereichen für 100,- DM. Anruf lohnt 

Telefon: 030/612 13 12 
pi Se screen 
..u.uu...........©. 
© WC 20 SPITZEN-Software VC 20 © 
@ AROM-Spiele * Action-Spiele “ 
© * Utilities * User-Programme * ® 
© Ca. 150Programme enorm günslig) © 
© bes vortell. PAKET-Best ® 
© Texı + 40-Z-Bildschirm integriert @ 
© Liste antord. 1,30 DM Briefmarken ® 
© UTN-Soft, Krabler 24, 43 Essen 12 “ 
..u.u.u..u......... 





a —,———————————— 


TI 80/10K Bioryihmus DM 20/Cassetle 
in Ti Basic Gesch. D. Funk, Alpenblickstr. | 
7890 WT-Tiengen 2 


a ———————— 


vc-64 Software Telefon:0911/528305 
u 
CBM-64-Software; auch Tausch, nur 
Diskette, Info gegen Freiumschlag 
| Binder. Behrensstr. 16, 5030 Hürth 
a en 


Kostenloses Info über Specirum- 
Programme bei Friedrich Neuper, 
\euchtenbergstraße 1, 8473 Pireimd 
I 
TOP-Spiele aus England 
Spectrum 16K: Z B. Jet Pac, Jumping 
Jack, PSSST, Tranz Am, Arcadia, Ah 
Diddum, Molar Maul je 28,- DM 
vC-20: Frog 18,- DM, Galaxzion 24,- DM 
Allen Attack Arcadia, Crazy Kong 
Wacky Waiters je 28,- DM 
CBM 64: Z. B. Crazy Kong, Token o! 
Ghall, Siren City je 35,- DM 
Bei Vorauskasse 2,- DM, bei Nachnahme 
4- DM zusätzlich für P + Info 
gegen Freiumschlag. 
MCS Micro Computer Service 
Pidder-Lüng-Weg 5, 2 Hamburg 73 





® @ ® TI-90/4A Software ®© © © Inlo 
gratis bei Jürgen Richter, Gebr - 
Grimmstraße 9, 6483 Bad Soden @ @ ® 





CBM 64 vc 20 
Supersoftware aus allen 
Bereichen, Spiele, Anwender 
usw. Nur beste und neueste 
Programme. Kleine Unkosten/Tausch 
Info 2,- DM. C. Jakubowskl 


4300 Essen, Termerhöfe 37 





Neu: Katalog 3/83 (über 50 Seiten) 
Neu: Light-Pen für VC 20 

Neu: Echte 3 D-Spiele mit Stereo- 
brille für VE 20, CBM 64 und Spectrum, 
Neu: Noch mehr Hard- und Software 
sowie Bücher für Spectrum, ZX 81, VC 20 
CBM 64, Dragen und Jetzt auch ®rle-1, 
Katalog gegen 1,80 DM in Briefmarken 
Th. Wagner Softwareversand, Postfach 
112243, D-8900 Augsburg 

re Br EEE 
@ CBM 641 Frogger, Pacman, Kong, 
Simons-Basic und vieles mehr! Info 
gegen Rückporto bei B. Töffke, 
Lindenstr. 23, 6084 Gernsheim 
ee ss; 
© © 16-84 - Spiele: Poker/Star Trek 
Kamel je 15- DM. Eliza/Vokabel 
Lernpr. je 20,- DM. Grafik MS 25,-DM A 
Scholz, Schubertstr. 60, 6300 Gießen 





© CM 64 © Software © CBM 64 © 
USA-Topsoftware z. B. Zaxxon, Hobbit! 
Über 100 Spielel Info bei Kreuzer 
Leutholdstraße 6, 8000 München 83 





oo © © Zi-dpecirum © © © © 
Wegen Hobbyaufgabe verkaufe ich 
meine 80 Programme — Liste gegen 
Rückporto. Schreiben Sie an 
Reinhard Vierhauser, Postlagernd 
Für BRD - 8228 Freilassing 
Für Österreich - 5020 Salzburg 
ET a Ben ae a 
Commodore 84 
Neul Spitzensoftware zu unglaub- 
lichen Preisen Anwenderprogramme 
Spiele, Textverarbeilung Dateien 
Ihre Listings werden wunschgemäß 
eingegeben und lauffähig gelie- 
tert! Schnellste Bearbeitung 
Info gegen Rückporto 














EEE nn nn 
Commoders 64: Gebe gute Soltware 
ab. Nur für CBM 64, nicht für VC-20 
Supersoftware jeder Art Schladitz 
Pillnitzer Weg 33 A, 1000 Berlin 20 


Fiss tete Höshehet AREBSPRSEBABFRIERREN BE U‚ [nn 
. © © Commidın 14 ® ® “ 
@ Spitzensoftware Topspiele ® 
” Info gegen 80 Pig ° 
“ H. Sterdt. Catharinenstr. 6 “ 
ee © ®@ 2200 Elmshon @ @ ® « 
ee 


TI 90/4A Software Service 
Superprogramme Aus aller Welt 
Programmkassette Tel 05132/54314 
An der Weide 21, 3160 Lehrte 
WIN. Ba Rue Rn 
© © © An alle VC-20 Baslizer © ® [2 
Wollen Sie Ihre Programmsammlung 
erweitern? Dann sofort Info (1,-DM 
ın Briefmarken) anfordern beı 
Horst Nierendorf, Bornebreite 13 
3413 Moringen 2 
a gen 
TI-98/4A _Super-Spiel-Software “ 
Infos nur gegen Freiumschlag be 
Michael Silberberg, Berlinerstr. 10 
5657 Haan 1, Schreibe auch Progs 
ee ee 
© VC-20 Entscheldungshillfeprogramm ® 
{mind. 3K Erweit) auf Kassette 25,- DM 
Entscheidet zwischen bis zu 9 (!) Objekten 
Udo Schlag, Thomas-Mannstr. 25 
3554 Gladenbach-Wdh. 
ee en ehren nn u 
CDM-64-USER: Wir haben alle ver- 
fügbaren Prog.(Games u. Anw.) zu wirkl 
Tiefpreisen: Tel.: 0281/64613 oder 62205 
Liste vorhanden 
er ee 
ZX-81-Superprog. z. Tietstpreis-ZX-B1 
Mazogs, Pacman nur 10,- DM, Hires-In 
vaders 12,- DM, HRG 17,- DM.Gr. Info bei 
Engstler, Dinghoferstr. 10, A, 4020 Linz 
Then Nigr are ar 


..uu..u.u.........©. 
© VC-20 © SUPERANGEBOT © VC-20 © 
© 140 Progr. (ca 50 ROM-Progr.) ® 
® nur 120,- DM. Infos gratisi  ® 
® Joerg Vollmann, Postfach 1249 ® 
@ 2448 Burg/F. Es lohnt sich ® 
...u............€ 





CBM 64 ® Atari Top Software 
Super Preise ab 2,- DM. Auch erstellen 
von Programmen. Into Freiumschlag 
P. Wippich, Mautweg 8, 5603 Wülfrath 





© © © VC-20/64 Suporspiele © © © 
© © © Tausch und Verkauf © © © 
Spiele ab -50 DM! Liste gegen 
50 Pfg Rückporto bei Thora-Soft 
Danzigerweg 4, D-7430 Metzingen 


vo © vC20 © Vc20 @ 16-20 
Alle hergeschaut @ Super günstig ® 
Trüber Sonntag, Langeweile, mit LEO- 
Soft vergeht die Zeit mit Eile 
Dufte Programme ® Fasi ales ® 
Info m. Rückporto, K Leonhardt, 
Grönnlingerstr. 1-3, 7090 Eltwangen 








CBM-4, 25 Super-Programme auf Disk 
für nur 50- DM (Schein/Scheckl) 
R. Deuerling, Bogensti. 7, 24 Lübeck 


T100/44 Das Topangebet: TIaB/aa 
8 (N) Super Ext. Basic Spiele und zwei 
englische Basc Spiele (imelusiv 
Markenkass u Porto) nur 20, DM 
Alle Spiele mit Bombenaclion und 
Topsoundi Billiger gehls michi" 
Schein an J. Schubert, Londensir. 9 
34 Götlingen (Supennio gg 80 Pig) 












EEE 


210 SUPERPROGRAMME 
Über 80 Spieler Minen 
sung wie beim Spectrum 
Head-On MC Vlies u a umer 
0- DM, Info gegen Freiumschiag 
Schilling, Feldstraße 5. 2723 Scheebe 
nn nn nn 
eo 1044 © 5-Spieleprogramme auf 
Disk 60,- DM + Nachn. b, M. Vertkamg 
Irftstraße 112. 4050 Mönchengladbach 2 
nn nn nn nn nn 
Tieom Top Splel/Anwenderprogramms 
ınd eine ganze Menge mehr für dem 
TI m0/4A Super Presse Katalog 
Bei A. Toonen, Buchenweg 7 
4178 Kevelaer 5. Mit Anzeige 1 Programm 
Gratis Ticom TI 99/4A Software 
EEE nn nn nn nn nn 
Verkauf und Tausch WE-28/84 Prog 
Über 500 Programme. Info B0 Pig 
A. Wagner, Am Hang 26, 2313 Raisser! 
EEE EEE 
TI-98/4A-Basıc + Ertendel-Software 
Alexander Hansmann Krousweg 7 
7515 Linkenheim, Telefon: 07247/7446 
en 
vc-20 Seftware Ich verkaule meme 
gesamte Software (ca 400 Programme 
für 50,- DM. Telefon: 030/8522498 


a ——————— 


Super Software für TI BB/AAl zZ 2 
Das Kamel In der Wüste 4- u 
4- Du 


zı#| 
a SP Vı, f 
mager 


Ripshorsterstraße 309, 4300 Essen 11 


EEE 


‘ COMPUTER-CASSETTEN ® 


10er Pack mil C 10 15,- DM 
BASF-LH-Band, C 20 16- DM 
incl Boxen ca 17- DM 
und Etiketten 4 18,- DM 
Ab 25 Stück moch günsüger 
BASF-Chom und AGFA superde 
In allen Längen iseferbar 


& CASSETTEN-AUFKLEBER ® 

100 ARollen-Etiketten nur 3,90 DM 

120 St aut A4-Druckbögen 7- DM 
Chnıstomenia-Cassertenstuco 
Gartenstraße 11, 3584 Zwesien 
05626/281 Vers. p. Rechnung 





T 00/4A Ext: Absolut Neu 
4 in einer Reihe 24,— DM 
Weiter im Programm: Wurnpus 19,— DM 
Flugsimulator 24,— DM uva 


Q-Computing A. Quadri, Ircheistraße 10 
CH-8057 Zürich, Schweiz 
in 
oe © spEcsor - ERS © © © 
BASIC® 
@26 neue Keywords ALTER AUTO.® 
®CLOCK DELETE.DO.ON.DPOKE, POP® 
@EDIT ELSE GET. KEYWORDS. PROC. ® 
@DEF PROCEND PROC. WHILE Unni® 
@EXIT IFON ERRORRENUM. ROLL ® 
®SCROLL SCORT. TRACE, USING ® 
@Viee neue Funkiionen wie DEC® 
@zu HEX Ireier Speicher um. ® 
@Für SPECTRUM 18/48K 56— DM® 
@inio über Gesamtprogramm \.-DM® 
@Best Vork a Nachnahme bei Kiug® 
©4000 Düssekori M@ iweben \8® 
“ Teislon 0211485 . 





Spechrum, 19K-Tiermne-Un m 
lext-Aların 0-30 Min. Wecker. Kalenası 
Song, 1/10Melses. Stoppuh, 4 Rechner+ 
nio gegen FreiumschlagKkass N 
Nachnahme © Scheck Ledins 
Rontgenstr 19. 8202 Abang 















.e ® Commodır 64 @ 


— 


.. 
Große Auswahl an Nutzprogrammen (z.B 
Assembler, Pilot, Basicerweiterung usw ) 


und Spielprogr. (z.B Frogger. Pac Man 
Kong usw.) zu  Niedrigstpreisen 
abzugeben! Auch Tausch. Liste gralis! 
M. Fischer, Kohlweg 19, 6101 Messel 
Telefon: 06159/1247 
m 
Verkaufe Software für 6-20, Liste gg. 1,80 
DM in Briefmarken oder 20.- im Brief 
für eine Kassette mit 10 Spielen 
M. Haase, Butterborn 69, 3200 Hildesheim 


a en 


Biete an Hardware 


m 
® ® RECORDERINTERFACE ® @ für 
Y620/VC64/ alle CBM. Jeder Recorder 
oder Tonbandg. als Datenspeicher. 
Fertiggerät im Geh. mit Steckern 
39,- DM, Fa BOl/Hoye 1, 2225 Schaf- 
stedt, Telefon: 04805/380. Nachnahmev. 


Taschencomputer PC-1500, Plotter, 
8K-Erweit. Rec. für 800.- DM, R. Grimmert 
Telefon: 02591/21943 
 Z MEREERBEGE 
© COMACON COMPUTER MARKET @ 
An und Verkauf von gebrauchten 
Klein-Gomputern, Telefon: 01/462'19'57 
CH-8003 Zürich, Do-Abend und Samstag 
Meinrad-Lienert-Straße 15 
Te 
VE 20 +Reoorderinterface + 3 Bücher 
+ Software, 500,-, Telef: 05731/82730 
te 
VC 20 385,- DM, 6-64 669,- DM sowie 
Zubehör verk, Fa Scarvacl Hard- 
Software Vers. Telefon 0228/443800 
Tr Da Te 
© ZX Spectrum:Erw.A.48K,89 DM,A.80K © 
@ 198DM Joystick+programmierbares@ 
© Joystick-Interface (für alle Pro-)® 
©®gramme) Auf Anfrage! Computer+@ 
© Medientech ‚H.Meyer,Rahserstr.58 @ 
4 ©4060 Viersen 1,Tel: 02162/22964 @ 
@®Preise + Porto und Nachnahme ® 
Te a 
ZX-81+16K+Bücher+Pac Man, Frogger 
Scramble va. 230,- DM, Tel. 07191/60518 


- Tausche C-#4, 6 Monate Alt + viel 
Software + Datasette gegen Casio 
=P-200. Telefon: 0644171843, ab 18 Uhr 


| Spectrum 4 Monate alt 400 DM+Software 
+ausführliche Literatur, Chiffre HC184 


TI 00/4A + Ext. Basic + Recorder mit 
Kabel + Joysticks + 6 x Ti-Magazin + 
Software, VB 700 DM, Tel: 0711/7157121 


ZX 81+32K+HRG+Bücher+Netz+Anl, 

300- DM. Wegen Systemwechsel, 

noch kein Jahr alt. Ab 17 Uhr 
Telefon: 02135/62527 


TI 08/4A + Ext/Basic + Recorder 
+ Kabel + + Software 


+ Finanzberater + Joysticks 
750,- DMI!! Telefon: 089/801235 


berkaute TI 08/48 ae + 20 
sict, sowie Topspiele 
Beeren u a WP 660,- DM 
Telefon‘ 06172/38592 nur Nac 



























Selbstbau-Pletter-Interface mil 
Lentronics-Schnittstelle Infomation 
L Habersetzer Thalackerstraße 8 
8123 Peißenberg, Telefon 0881/61922 
















ZX 81 + ı6K +Software 200- DM 
Telefon: 06144/31580 





Sharp MZ-80 A (48 K Byte), Floppy- 
Controller Expantionbox, 2 Laufwerke 
(5.25”, je 280 K Byte) 
org. Disk-Basic, diverse Spiele z B 
Sargon Il, DeFender Preise VB 
Telefon: 0611/893245, Sa/So 
























Supergünstiges für Ihren TI 99/44 
Ext Basic+Deut. Handbuch + Joystick 
+ Wumpus-Jagd + 10 Spiele in Ex @ 
nur 290,- DM, NP 570, Tele :04671/4 168 
Be II TR 








HP 4IC 3 Memory Kartenleser +Drucker 
VH 1.500,- DM Telefon: 06121543131 
er er re 








..o © ZX-spchume oo ® 
® uJoystick-Stick mit Interface ® 
© Kempstom-Kompatibel 6 
® Für Direktanschluß 16 + 48K ®@ 
® Preis 59,90 DM plus Versand @ 
® Volker Grimmke, 2240 Heide ® 
® Johann-Hinrich-Fehrsstraße 64 ®@ 










Verkaufe VC-20 + 8K Speichererweite- 
rung + Bücher 500,-DM, U. Rosenberger 
Haldenstraße 11, 7335 Salach 
Telefon: 07162/7184 ab 18 Uhr 
nd 
ZX-81+16K+Cass.+Bücher+Rec.für 
26 900S. E Glaeser,8952 Irdning 105,Ö! 
Te ee er 


LOCH DEN H4e 
VC 20 3-fach Moduladapter 85- DM 
VC-20 Recorderinterface 55,- DM 
VC-20 8K RAM Erweiterung 115- DM 
VC-20 Super Tool Modul 119,- DM 
Schnell-Save + Programmier-Modul 
mit 25 neuen Basicbefehlen und 
10 x schnell. Kassette. Floppyzeit 
VC-64 Epromkarte 55,- DM 
VC-64 3-fach Moduladapter mit Schalt. 
VC-64/64 Schalten, Steuern, 
mit PIO-IN/Out-Modul 
VC-20/64 Netzinterlace 
VC-20/64 Mithörverstärker 19,- DM 
VC-20/64 Dauerfeuer Joystickmodul 
VC-20 40/80 Zeichen, 64K RAM Erweit. 
Datenkassetien C 60 Stück 1,20 DM 
Stecker, Joystick Paddie, Bausätze 
Spiele + Programme ab 3,- DM 
Hard/Software Info für 1,20 DM 
MÜKRA, Rotdornweg 15, 1 Berlin 45 


ZX481, 16K Memopak, Zusatztastatur, 

5 Monate, dt. Anleitung, Bücher, für 

190,- DM; Jo. Schraub, 5440 Neuwied, 
Telefon: 02631/58136 













































...sus.su.u.u.u.u.u.u.u.. 
Kauft Leute kauf, Wille har al 




















ECKL elscirenic, Erlenmeyersiraße 3 
D-6204 Taunusstein 4, Tel. 06128/84734 
..uus.u........u.u... 












®Tı 00/4AA 6 Monate alt nur 199- DM 
Disk -Laufwerk + Controller 899 DM 
Ex-Basic-Modud, J Oyslcks Soft 
Ware-Module. Aecorder-Kabei USW 
Weit unter Neupreis ® H Mencher 
Hauptstraße 35, 5509 Walkdweller @ 


“ “ * ”* . = “ . “ % 


VE-20 (3 Monate Garantie) + 27 K HAM + 
2 Steckmodule (alles neuwertig!) 
+ Software + Lit. VB 480.- DM 
Telefon: 07641/48862 


zx 81 Katalog 1,—- DM 
16K RAM 85,- DM 
64K RAM 185,— DM 
IK Schach 15,- DM 
ZX Spectrum Katalog 3,— DM 
32K RAM 99,- DM 
Centronics-Interface 120,— DM 
Forth 60,—- DM 


BIMA-Elektronik, Heisterweg 6 
2382 Kropp, Telelorı 04624/8728 
ee nn 


Suche Software 


tg > 
Für TI 99/44 "Steckmodul Extended 
Basic” + Handbuch Tel.07141/63786 
nn 
Für VE 64 Joystick günstig + Programm 
auf Kassette: Gute Haushaltsrechnung + 
gute Spiele, Telefon: 07141/51406, 19 Uhr 
re a Er > Ta re 
Suche NC-64-Software, Hellemann, 
Wülferoder Straße 92, 3014 Laatzen 
rn rer de 
VC-54 Verkaufe meine gesamte Soft- 
ware für 150,- DM, Wert 5.000.- DM 
15 Disketten oder auf Kassette 
Telefon: 0208/8408111, ab 19 Uhr 
en a En I 
Suche Simons-Basic-Anleitungen 
gerne kopiert, 6-64, Telefon: 08151/15803 
Te A Tue ie 


Suche Hardware 


gen 
Für TIO9/4A "Steckmodul Extended 
Basic” + Handbuch, Tel: 07141/63786 
ne 
Für V6-64 Joystick günstig + Programme 
auf Kassette: Gute Haushaltsrechnung + 
gute Spiele, Telefon: 07141/51406, 19 Uhr 
I 
Datasette für W6-20, Tel: 0591/47672 
a 
Suche dringend Ext.-Basic für den TI-08 
Telefon: 06121/373300 
Parkstraße 24, 62 Wiesbaden. ab 17 Uhr 
a 7 


Tausch 





Tausche WC-84 Software. Liste für 
1,-- DM von Stefan Burtsche, Fröbeiweg 41, 
2000 Norderstedt Teia: 040/5221360 
























” ” “ * ” ” ” “ ” 


Achtung! Spitzel! 
Spectrum! TI 90/4 


* 
5 

* 

® Wr suchen ir unsarer anschaut 
. 

“ 


Ständn Programme, Toms Krufla und 
Jtitys singe ek zu5 
? Bereichen 


” Übersicht erscheint regeimliig| 
* (Kostenlos!) Achtung! Schuckt uns Eure ® 
* Programme, Tauschlisten. ideen. Tiıos *® 
” zu) Ih erhaltet gestwendeni amer * 
* Clubmagazin. sowie eine Kauzetia. voll * 
* mil nützlichen, von uns geschriebenen * 
* Programmen aller Art! (Versand ner * 
” halb von 3 Tagen! (Kein Ciuibelürag] ) * 
* Schreibt heute noch ar | Scheitza ® 
” Wihelmstraße 46, 4690 Heme 2° ® 
* (Rückporto) Tauschkataing wird asia * 
a matisch mitgeschickn e 
” ” ” * . “ ” “ 





® © Tausch IC 4 Seltmın © © 
Suche Fioppy 1541 oder CBM 4040 
Inio -BO Pig ® ® Christian Wähler 
Moritzstraße 70 «N Essen | 


VC-64-Software Tausch: Liste gegen 
Freiumschiag an Ralf Morgenroth 
Höllental 10, 8720 Schwennturt 


Tausche DI-Spectne-ragrammı 

Lste bite an Frank Hiäkhmann 

4410 Warendorf 2, Everwordstrae & 
oder Telefon. 02581/45056 


C-64 tolle Programme Tausch 

oder gegen Selbsikosten 3. Isert 

Bürgerwehrstraße 30, 7800 Freiburg 
Telefon. 0761/28063 














Verschiedenes 


län 


An- und Verkauft von gebrauchten Personai- 
Computen. Teisiem: BZIe2/80887 


Versandhander 
Der Joystick 55,- DM - Disk ab 4 90 DM 
Ihr Computerpartner Doffine + Fischer 
Postlach 1415, 4790 Paderbom 
FE De 
Basic-Kurs VC 20 
Kompakt-Kurs | + | Teil mit Kassere 
zu verkaufen iInlormation Ralf Fretag 
Postiach 842. 4620 Cas-Rauns 
Telefon: 02305/84761 oder gegen 


80 Pfennag Ruckparte 


Suche kMarse 


im 
17 Ad 4018 Langen 
en a Fe tere. ne 







NEUER KATALOO 
Rn ERHÄLTLICH (SCHUTZOEBÜHR 3,-0M) 


au ANFAN® DEZEMBE 





cAasS E 

Design and save beautliu 

multicoh spri\es, and 
a \nem In you! own 

= rammes' Full edilng 


achities and 
documentation 








OU 
SUPREME wonis 
CHAMPION? 


r: 
Ba am ea 
—.—rr 7 oh 
{ T ”rWwEE 


u 





Herleshausen 


wıco | 
SOFT ® Christian Widuch @ Nordsitr. 22 @ 3443 





WACHTSBESTELLUMG 


VERGESSEN SIE WIEHT, ImMnE WEIH 


eHTZEITIO AM UNS ABZUSENDEN! 
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WICOSOFT ® Christian Widuch @ Nordstr. 22 @ 3443 Herleshausen 





Jumpin Jack t 
für den VC-20 0. ETW. 

Das beliebte Froschspiel in perfekter 
Aufmachung. Ein Spiel — nicht nur für 


Grüne. 
DM 45.50 


Adventure-Spiel f. VC-20 


(Speichererwellterung mind. 16K) 


ein Superspiel 





Der Bestseller 


Abenteuerspiel in deutscher Sprache. 
Finden Sie die verborgene Pyramide in der Wüste. 


DM 19.50 


MULTISOUND SYNTHESIZER 


für den VC-20 o.Em. | 
esizer für alle Computermu- 

Sans Extrem flexibel. Alle denk- 
baren Musik- und Spezialeffekte. 

4 zu kombinierende Grundkomponen- 
ten vorhanden: Musik, Rhythmus, pro- 
grammierbare Musik und Toneffekte. 
Eines der stärksten Programme von 


OMIK. 
R DM 39.50 





Neuer Katalog ab Anfang Dezember erhältlich (Sch utzgebühr 3,-DM) 
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Bitte benutzen Sii Bestellkarte 
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a # 


A BEA Action 
WILL You BE Te 


FE 
THE 


SUPREME woRrıLp 


CHAMPION? 








WILL YOU BE THE 
SUPREME WORLD 
CHAMPION? 


« - 
u .Yas dey - 
u WE en en 
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für den VC-20 0.Erw 


St Dein Jet ji 

neten und bekämpft jener den Pig. 

Pots, Schjeß djg yfo. © MuNitiongge 
fos 

{en ab. Vorsicht vor Und Bodenrakg. 


denn jeder ka ‚0.9 Meteor; 
ne könnte Dein letz eoriten, 


erg 


DM 39,50 


Skramble 

für den VC-20 o. Erw. 
Eine der besten Scramble-Versionen 
auf dem Markt. Superschnell. Tolle Gra- 
fik. Guter Sound. Joystick oder Tasien- 


bedienung,. 
DM 39.50 


MOONS OF JUPITER für den 
VC-20 m.Erw. (3 8 0. I6K) 


Du bist Commander einer galakti 
Flotte. Während die Seren 
schiff begleitet, sucht ein Raumschiff 
die Passage zwischen den Jupitermon- 
den. Riskante Ausweichmanöver sind 
notig. Achte auf die Ufo der Gologs. Sie 
wollen Dich vernichten. 


SHARK ATTACK 
für den VC-20 o.Erw. 


Du Schwimmst in dem von Haifischen 
wimmelnden Meer, nachdem Du aus 
dem Piratenschiff entkommen. bist. 
Deine einzige Waffe ist ein Netz, wel- 
ches Du hinter Dir herziehst und mit 
dem Du die Haie fangen kannst. 

Hüte Dich anzuhalten. Die Haie lauern 


gierig auf Dich, 
DM 39.50 





rleshausen * Tel. 056 54 - 6182 


im Innenteil des H: IR 


























VERGESSEN SIE NICHT, IHRE WEIHNACHTSBESTELLUNG 
RECHTZEITIG AN UNS ABZUSENDEN! 





The Hobbit für den ZX Spectrum 48K 
Das neue Superadventure. Herrliche Grafik. Großer Befehlssatz. 
Ein Meilenstein der Microcomputersoftware. Dazu das Hobbit- 


Taschenbuch (in englischer Sprache). 


DM 78.- 


en 
WEGE 





T | 

Eine eb + für den ZX Spectrum 16 & 48K 

Es, m icklichkeitsspiel. Tarzan muß Jane befreien. D 

Tolle 6 rokodilen und Affen behindert. Happy-End am ren 
rafik, unterhaltsam. Ohne Joystick gut spielbar chiuß? 


DM 25.- 


JEDE MENGE NEUE SPIELE 





für Spectrum 48: 


Adventurer’s Nightmare (Abenteurers Alptraum) 
Freie Tastenwahl. Deutsche Spielanleitung im Programm. Fünf 
Nächte müssen in der Spukhöhle verbracht werden. Es gilt, Gold 
und Leben vor Gespenstern, Vampiren, Energiespindeln, Skeletten 
und Mörderspinnen zu verteidigen. Sehr schnell! 

M 32.00 


Schatzsuche im Irrgarten 

Maschinensprache. Deutsche Spielanleitung im Programm. Fin- 
den Sie in der obersten Reihe den Geheimmechanismus, damit die 
Urne sichtbar wird! Die ersten Urnen sind problemlos zu finden, 
aber dann ... Zeit, fallende Steine und Monster sind gegen Sie! 


DM 32.00 


Flipper 
Deutsche Anleitung im Programm. Freie Tastenwahl. Flippern wie 
in der Kneipe um die Ecke! Drei Geschwindigkeiten. Bis zu vier 


Spieler spielen je drei Bälle! Sehr schnell! 
DM 32.00 


Spectrum 16k: 


Teufels-Fahrer 

Deutsche Anleitung im Programm. Weichen Sie dem entgegen- 
kommenden aus, indem Sie rechtzeitig die Spur wech- 
sein. Rasend schnell! 10 verschiedene Geschwindigkeiten. 


DM 32.00 














snutzt. Wer den erweiterten 
ABK voll au dieses Spiel 


Spectrum besitzt, sollte & 
nicht verzichten 
DM 37.- 


Colour Clash 


messe für Spectrum 16/48 K 


füllen Sie die Felder mit dem magı- 
schen Pinsel aus und lassen Sie sich 
nicht von den bösen Geistern erw- 
schen. 100% Masch.code, sehr unter- 
haltsam. 


DM 35.00 


HÄNDLERANFRAGEN ERWÜNSCHT 
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